Worksheet Menu Bar

Private Sub Label1_Click()
Dim Cdb As CommandBar
Dim wb As Workbook 'Arbeitsmappe
Dim wsh As Worksheet 'Tabellenblätter
Const NameMeineMenueleiste As String = "Menue"
Call Commandbar_erstellen
'die sichtbaren CommandBars speichern und dann ausblenden
On Error Resume Next
n = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
ReDim Preserve CdbList(n)
CdbList(n) = Cdb.Name
n = n + 1
Cdb.Visible = False
End If
Next Cdb
'Status von Bearbeitungsleiste merken
Brbt = Application.DisplayFormulaBar
'Bearbeitungsleiste ausblenden
Application.DisplayFormulaBar = False
'Menüleiste ausblenden
Application.CommandBars("Worksheet Menu Bar").Enabled = False
'Eigene Menüleiste einblenden
Application.CommandBars(NameMeineMenueleiste).Visible = True
'Eigene Menüleiste schützen
Application.CommandBars(NameMeineMenueleiste).Protection = _
msoBarNoCustomize + msoBarNoMove + msoBarNoResize
End Sub