以下のマクロを使用して、ワークブックメニューバー、標準ツールバー、およびカスタムコマンドバーの可用性を切り替えることができます。

初めてマクロを実行すると、メニューと標準バーが無効になり、カスタムツールバーが有効になります。

次にマクロを実行すると、メニューと標準バーが有効になり、カスタムコマンドバーが無効になります。

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