Mega Code Archive

 

Categories / VisualBasic Script / Application

 

If you want to disable all shortcut menus, use the following procedure

Sub DisableAllShortcutMenus()     Dim cb As CommandBar     For Each cb In CommandBars         If cb.Type = msoBarTypePopup Then _           cb.Enabled = False     Next cb End Sub