Mit dem Makro unten können Sie die Verfügbarkeit der Arbeitsmappen-Menüleiste, der Standardsymbolleiste und einer benutzerdefinierten Befehlsleiste umschalten.
Wenn Sie das Makro zum ersten Mal ausführen, werden das Menü und die Standardleiste deaktiviert, die benutzerdefinierte Symbolleiste wird aktiviert.
Wenn Sie das Makro das nächste Mal ausführen, werden das Menü und die Standardleiste aktiviert, die benutzerdefinierte CommandBar wird deaktiviert.
Sub ToggleCommandBars() Dim cbEnabled As Boolean ' aktuellen Befehlsleistenzustand abrufen cbEnabled = Not Application.CommandBars(1).Enabled ' neuen Zustand auf die Arbeitsmappen-Menüleiste anwenden Application.CommandBars(1).Enabled = cbEnabled ' neuen Zustand anwenden auf die Standardsymbolleiste Application.CommandBars("StandardOPE").Enabled = cbEnabled ' Wenden Sie den neuen Status auf eine benutzerdefinierte Befehlsleiste an (das Gegenteil der beiden vorherigen) Application.CommandBars("MyCustomCommandBar").Enabled = Nicht cbEnabled End Sub