以下のマクロは、ショートカットメニューの可用性状態を切り替える方法を示しています。

Sub ToggleCommandBars()

Dim cbEnabled As Boolean

cbEnabled = Not CommandBars(25).Enabled

CommandBars(25).Enabled = cbEnabled ' shortcutmenu for cells

CommandBars(26).Enabled = cbEnabled ' shortcutmenu for columns

CommandBars(27).Enabled = cbEnabled ' shortcutmenu for rows

CommandBars("Toolbar List").Enabled = cbEnabled ' shortcutmenu for toolbars

End Sub