Za pomocą poniższego makra możesz przełączać dostępność paska menu skoroszytu, standardowego paska narzędzi i niestandardowego paska poleceń.
Przy pierwszym uruchomieniu makra menu i pasek standardowy są wyłączone, a niestandardowy pasek narzędzi jest włączony.
Przy następnym uruchomieniu makra menu i pasek standardowy są włączone, niestandardowy pasek poleceń jest wyłączony.
Sub ToggleCommandBars() Dim cbEnabled As Boolean ' pobierz bieżący stan paska poleceń cbEnabled = Not Application.CommandBars(1).Enabled ' zastosuj nowy stan do paska menu skoroszytu Application.CommandBars(1).Enabled = cbEnabled ' zastosuj nowy stan do paska narzędzi Standard Application.CommandBars("StandardOPE").Enabled = cbEnabled ' zastosuj nowy stan do niestandardowego paska poleceń (przeciwieństwo poprzednich dwóch) Application.CommandBars("MyCustomCommandBar").Enabled = Not cbEnabled End Sub