XL: Cannot Enable or Disable Built-in Commands with a Macro

ID: Q160903

The information in this article applies to:

Microsoft Excel for Windows 95, versions 7.0, 7.0a
Microsoft Excel for Windows, versions 5.0, 5.0c
Microsoft Excel for Windows NT, version 5.0
Microsoft Excel 97 for Windows
Microsoft Excel for the Macintosh, versions 5.0, 5.0a
Microsoft Excel 98 Macintosh Edition

SYMPTOMS

When you run a macro that attempts to set the Enabled property for a built- in menu command or a submenu command, you receive an error message.

In Microsoft Excel 97 and Microsoft Excel 98 Macintosh Edition, you receive the following error message:

Run-time error '1004':
Application-defined or object-defined error

In Microsoft Excel 5.0 and 7.0, you receive the following error message:

Run-time error '1005':
Cannot enable built-in commands.

CAUSE

In Microsoft Excel, you cannot enable or disable built-in menu commands and submenu commands. You can only set the Enabled property for a menu command that you add to a menu.

RESOLUTION

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 the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

Simulating Disabling a Built-in Menu Command

You cannot enable or disable a built-in menu command. However, you can create a macro that gives a built-in menu command the appearance of being disabled.

The sample macro in this article "disables" the built-in Exit menu command on the File menu. This macro performs the following steps:

The built-in menu command location is saved.

The built-in menu command is deleted.

A custom menu command with the same caption and index is added to the menu.

The custom menu command is disabled.

Sample Macro


     Sub Disable_Builtin_MenuItem()

       Dim i
       Dim x

       'If you are using Microsoft Excel on the Macintosh replace
       'the word "Exit" with "Quit" on the following line
       With MenuBars(xlWorksheet).Menus("File").MenuItems("Exit")
           i = .Index     'Save the position of the built-in menu command.
           .Delete        'Delete the built-in menu command.
       End With

       'Add a custom menu command with the same caption and index as the
       'built-in menu command that you deleted.
       Set x = MenuBars(xlWorksheet).Menus("File").MenuItems.Add _
           (Caption:="Exit", before:=i)
       x.Enabled = False

   End Sub

Resetting the Menu That Is Changed by the Sample Macro

To reset the entire menu to the default values, run the following macro:


   Sub ResetMenubar()
 
      MenuBars(xlWorksheet).Reset
 
   End Sub

NOTE: There is not a way to reset a single menu or menu command.

MORE INFORMATION

STATUS

This behavior is by design of the programs listed at the beginning of this article.

REFERENCES

For additional information about getting help with Visual Basic for Applications, please see the following article in the Microsoft Knowledge Base:

Q163435 VBA: Programming Resources for Visual Basic for Applications

Additional query words: xl97 7.00a 5.00c submenu

Keywords : kbprg kbui kbdta kbdtacode xlui IntpMenu KbVBA
Version : MACINTOSH:5.0,5.0a,98; WINDOWS:5.0,5.0c,7.0,7.0a; winnt:5.0
Platform : MACINTOSH WINDOWS winnt
Issue type : kbprb