Con la macro a continuación, puede alternar la disponibilidad de la barra de menú del libro de trabajo, la barra de herramientas estándar y una barra de comandos personalizada.

La primera vez que ejecuta la macro, el menú y la barra estándar están deshabilitados, la barra de herramientas personalizada está habilitada.

La próxima vez que ejecute la macro, el menú y la barra Estándar estarán habilitados, la CommandBar personalizada estará deshabilitada.

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