Pomocí níže uvedeného makra můžete přepínat dostupnost panelu nabídek sešitu, standardního panelu nástrojů a vlastní CommandBar.
Při prvním spuštění makra jsou zakázána nabídka a standardní panel, je povolen vlastní panel nástrojů.
Při příštím spuštění makra jsou nabídka a standardní lišta povoleny, vlastní CommandBar je zakázáno.
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 na standardní panel nástrojů Application.CommandBars („StandardOPE“). Enabled = cbEnabled 'použije nový stav na vlastní panel příkazů (opak dvou předchozích) Application.CommandBars („MyCustomCommandBar“). Enabled = Not cbEnabled End Sub