Avec la macro ci-dessous, vous pouvez activer la disponibilité de la barre de menus du classeur, de la barre d’outils Standard et d’une barre de commande personnalisée.

La première fois que vous exécutez la macro, le menu et la barre standard sont désactivés, la barre d’outils personnalisée est activée.

La prochaine fois que vous exécutez la macro, le menu et la barre Standard sont activés, la barre de commande personnalisée est désactivée.

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