XL98: Problems When Disabling/Enabling Menus (182645)

   Application.MenuBars(xlWorksheet).Menus("File").Enabled = False
				

   Application.MenuBars(xlWorksheet).Menus("File").Enabled = True
				

   CommandBars("File").Enabled = False
				

   CommandBars("File").Enabled = True
				

MORE INFORMATION

In Microsoft Excel version 5.0, menus are contained in menubars. For example, the File menu is contained by the "xlWorksheet" menubar. Because of this, the command to disable a particular menu requires that you refer not only to the menu, but also to the menubar that contains it. For example:

   Application.MenuBars(xlWorksheet).Menus("File").Enabled = False
				

NOTE: Adding "Application." to the beginning of the line of code is usually not required, but it is included here in order to provide a complete code example.

In Microsoft Excel 98 Macintosh Edition, menus are not contained by menubars. Instead, they are independent entities belonging to the CommandBars collection. So, you don't have to refer to any other object when trying to disable a particular menu:

   CommandBars("File").Enabled = False
				

This command will work correctly in Microsoft Excel 98 Macintosh Edition.

Because of the change in program design, Microsoft Excel 98 Macintosh Edition cannot properly execute the first command shown above. However, you will not receive an error message when the command is executed: Microsoft Excel 98 Macintosh Edition will merely ignore the command and continue macro execution.

Below are two macro examples that demonstrate the difference in behavior between Microsoft Excel 98 Macintosh Edition and earlier versions of Microsoft Excel. The first macro will disable the File menu in Microsoft Excel version 5.0, but will do nothing in Microsoft Excel 98 Macintosh Edition. The second macro will disable the File menu in Microsoft Excel 98 Macintosh Edition. To redisplay the File menu in any version of Microsoft Excel, set the Enabled property in either macro to True and then rerun the macro.

   Sub WorksInExcel5()
       Application.MenuBars(xlWorksheet).Menus("File").Enabled = False
   End Sub

   Sub WorksInExcel98()
       CommandBars("File").Enabled = False
   End Sub