Wijzig de beschikbaarheid voor de CommandBars met VBA in Microsoft Excel

Anonim

Met de onderstaande macro kunt u de beschikbaarheid van de werkmapmenubalk, de standaardwerkbalk en een aangepaste opdrachtbalk wisselen.
De eerste keer dat u de macro uitvoert, zijn het menu en de standaardbalk uitgeschakeld, de aangepaste werkbalk is ingeschakeld.
De volgende keer dat u de macro uitvoert, zijn het menu en de standaardbalk ingeschakeld, de aangepaste CommandBar is uitgeschakeld.

Sub ToggleCommandBars() Dim cbEnabled As Boolean ' haal de huidige opdrachtbalkstatus op cbEnabled = Niet Application.CommandBars(1).Enabled ' pas de nieuwe status toe op de werkmapmenubalk Application.CommandBars(1).Enabled = cbEnabled ' pas de nieuwe status toe naar de standaardwerkbalk Application.CommandBars("StandardOPE").Enabled = cbEnabled ' pas de nieuwe status toe op een aangepaste opdrachtbalk (het tegenovergestelde van de vorige twee) Application.CommandBars("MyCustomCommandBar").Enabled = Niet cbEnabled End Sub