Con la macro in basso puoi alternare la disponibilità della barra dei menu della cartella di lavoro, della barra degli strumenti standard e di una barra dei comandi personalizzata.
La prima volta che si esegue la macro il menu e la barra standard sono disabilitati, la barra degli strumenti personalizzata è abilitata.
La prossima volta che si esegue la macro, il menu e la barra Standard sono abilitati, la CommandBar personalizzata è disabilitata.
Sub ToggleCommandBars() Dim cbEnabled As Boolean ' ottiene lo stato corrente della barra dei comandi cbEnabled = Not Application.CommandBars(1).Enabled ' applica il nuovo stato alla barra dei menu della cartella di lavoro Application.CommandBars(1).Enabled = cbEnabled ' applica il nuovo stato alla barra degli strumenti Standard Application.CommandBars("StandardOPE").Enabled = cbEnabled ' applica il nuovo stato a una barra dei comandi personalizzata (l'opposto dei due precedenti) Application.CommandBars("MyCustomCommandBar").Enabled = Not cbEnabled End Sub