Cambiar la disponibilidad de los menús de acceso directo utilizando VBA en Microsoft Excel
La siguiente macro muestra cómo puede alternar el estado de disponibilidad de los menús contextuales.
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