Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. 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