Gruppe
Menue
Problem
Wie kann ich beim Öffnen der Arbeitsmappe eine eigene Menüleiste erstellen, die Arbeitsblattmenüleiste durch diese ersetzen und den Vorgang beim Schließen der Arbeitsmappe wieder rückgängig machen? pe die Tabellenblattmenüleiste ausblenden, eine benutzerdefinierte
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oButton As CommandBarButton
On Error Resume Next
Application.CommandBars.Add("My Commandbar").Delete
On Error GoTo 0
Set oBar = Application.CommandBars.Add("My Commandbar", _
MenuBar:=True, temporary:=True)
Set oButton = oBar.Controls.Add
With oButton
.Caption = "My Button"
.Style = msoButtonCaption
End With
Application.CommandBars("My Commandbar").Visible = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("My Commandbar").Delete
On Error GoTo 0
Application.CommandBars("Worksheet Menu Bar").Visible = True
End Sub