XL97: How to Disable Shortcut Menus

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site: For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site: The following table lists all of the built-in shortcut menus and the value of the Index property for each menu.

   Shortcut menu              Index property
   -----------------------------------------
   Query and Pivot            19
   Workbook tabs              20
   Cell                       21
   Column                     22
   Row                        23
   Cell                       24
   Column                     25
   Row                        26
   Ply                        27
   XLM Cell                   28
   Document                   29
   Desktop                    30
   Nondefault Drag and Drop   31
   AutoFill                   32
   Button                     33
   Dialog                     34
   Series                     35
   Plot Area                  36
   Floor and Walls            37
   Trendline                  38
   Chart                      39
   Formula Bar                40
   PivotTable Context Menu    41
   Query                      42
   Query Layout               43
   AutoCalculate              44
   Object/Plot                45
   Title Bar (Charting)       46
   Layout                     47
   Shapes                     70
   Inactive Chart             71
   Excel Control              72
   Curve                      73
   Curve Node                 74
   Curve Segment              75
   Pictures Context Menu      76
   OLE Object                 77
   ActiveX Control            78
   WordArt Context Menu       79
   Rotate Mode                80
   Connector                  81
   &Wizard                    82
   Built-in Menus             83
   System                     84
				

NOTE: The list may vary beyond property index #81 based on additional add-ins that are installed and custom menus that exist.

The following macro disables the shortcut menu for worksheet tabs:

   Sub Disable_Shortcut()
       CommandBars(27).Enabled = False
       ' You can also use the name of the shortcut menu as in the following
       ' line of code: CommandBars("ply").Enabled = False
   End Sub
				

NOTE: To make the shortcut menu available for worksheet tabs, change the Enabled property in the above macro to True, and then rerun the macro.