Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Menüleiste wechseln

Gruppe

Bar

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

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Bar