С помощью приведенного ниже макроса вы можете переключать доступность строки меню книги, стандартной панели инструментов и настраиваемой панели команд.

При первом запуске макроса меню и Стандартная панель отключаются, настраиваемая панель инструментов включается.

В следующий раз, когда вы запустите макрос, меню и стандартная панель будут включены, а настраиваемая CommandBar отключится.

Sub ToggleCommandBars()

Dim cbEnabled As Boolean

' get the current commandbar state

cbEnabled = Not Application.CommandBars(1).Enabled

' apply the new state to the Workbook Menu Bar

Application.CommandBars(1).Enabled = cbEnabled

' apply the new state to the Standard toolbar

Application.CommandBars("StandardOPE").Enabled = cbEnabled

' apply the new state to a custom commandbar (the oposite of the previous two)

Application.CommandBars("MyCustomCommandBar").Enabled = Not cbEnabled

End Sub