About EDC
     Contact
     Feedback

VBA programming
     Add-Ins
     ADO/DAO
     Charts
     Dialogs/UserForms
     Display/Statusbar
     Events
     Files/Folders
     Import/Export
     Menus/Toolbars
     Misc. tips
     OLE Automation
     Operating System
     Printing
     Private Profiles
     Sound
     VBA File Access
     Visual Basic Editor
     Workbooks
     Worksheets

Worksheet Functions
     Adding
     Counting
     Date
     Lookup
     Misc. Functions
     Time

Download

Help / Support

These pages are no longer updated and are only available for archive purposes.

Click here to visit the pages with updated information.

Change the availability for the shortcut menus

The macro below shows how you can toggle the availability state for the shortcut menus.

Sub ToggleCommandBars()
Dim cbEnabled As Boolean
    cbEnabled = Not CommandBars(25).Enabled
    CommandBars(25).Enabled = cbEnabled ' shortcutmenu for cells
    CommandBars(26).Enabled = cbEnabled ' shortcutmenu for columns
    CommandBars(27).Enabled = cbEnabled ' shortcutmenu for rows
    CommandBars("Toolbar List").Enabled = cbEnabled ' shortcutmenu for toolbars
End Sub

On the download page for CommandBars you can find the tool CommandBar Tools that will help you to find the names and ID numbers of the available CommandBars.

Document last updated 2000-02-05 12:47:00      Printerfriendly version