Изменение доступности для меню быстрого доступа с помощью VBA в Microsoft Excel
В приведенном ниже макросе показано, как можно переключать состояние доступности для контекстных меню.
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