Modifiez la disponibilité pour les CommandBars en utilisant VBA dans Microsoft Excel
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