The following code will toggle on and off all the short cut menus,
including
the toolbar selection menu, and toggle access to the Customize command
Sub ShortCutsToggle()
For Each cmb In CommandBars
If cmb.Type = msoBarTypePopup Then
cmb.Enabled = Not cmb.Enabled
End If
Next cmb
With CommandBars("Toolbar List")
Enabled = Not .Enabled
End With
With CommandBars("Tools").Controls("Customize...")
Enabled = Not .Enabled
End With
End Sub
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.