아래 매크로는 바로 가기 메뉴의 가용성 상태를 전환하는 방법을 보여줍니다.

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