GrahamUNC:
Very nice. The following code almost puts my previous code to shame.
[tt]
Sub DisableAllShortcutMenus()
Dim cb As CommandBar
For Each cb In CommandBars
If cb.Type < 3 Then cb.Enabled = False
Next cb
End Sub
[/tt]
There's almost always a shorter, faster, and easier way. Now if we can just figure out how to prevent Ctrl+1 without protecting the sheet. Disabling the ALT key might not be a bad idea, either.
Regards,
LoNeRaVeR