V nižšie uvedenom makre môžete prepínať dostupnosť panela s ponukami zošita, štandardného panela s nástrojmi a vlastného panela príkazov.
Pri prvom spustení makra sú ponuka a štandardný panel zakázané, je povolený vlastný panel s nástrojmi.
Pri nasledujúcom spustení makra sú ponuka a štandardný panel povolené, vlastný panel príkazov je deaktivovaný.
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 štandardný panel nástrojov Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'použije nový stav na vlastný panel príkazov (oproti predchádzajúcim dvom) Application.CommandBars ("MyCustomCommandBar"). Enabled = Nie je cbEnabled End Sub