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 'obtiene el estado actual de la barra de comandos cbEnabled = Not Application.CommandBars (1) .Enabled' aplica el nuevo estado a la barra de menú del libro Application.CommandBars (1) .Enabled = cbEnabled 'aplica el nuevo estado a la barra de herramientas estándar Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'aplica el nuevo estado a una barra de comandos personalizada (lo contrario de las dos anteriores) Application.CommandBars ("MyCustomCommandBar"). Enabled = No cbEnabled End Sub