hi

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


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=560187