Microsoft ExcelでVBAを使用してのCommandBarsの可用性を変更
以下のマクロを使用して、ワークブックメニューバー、標準ツールバー、およびカスタムコマンドバーの可用性を切り替えることができます。
初めてマクロを実行すると、メニューと標準バーが無効になり、カスタムツールバーが有効になります。
次にマクロを実行すると、メニューと標準バーが有効になり、カスタムコマンドバーが無効になります。
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