La macro di seguito mostra come attivare o disattivare lo stato di disponibilità per i menu di scelta rapida.

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