Posted by Mark W. on December 10, 2001 12:46 PM
Just drag it from its docked position and close it.
Posted by Mark W. on December 10, 2001 12:52 PM
I spoke too soon... let me poke around some more... (nt)
Posted by Ken on December 10, 2001 1:45 PM
Hi Mark, I tried that, but how do you close menu?
Sorry Mark, I am trying to get it, I have dragged the menu bar from the docked position, the only thing I see that you can close is the worksheet, How do you close the excel menu bar?
Thanks
Ken
Posted by Mark W. on December 10, 2001 1:54 PM
Re: Hi Mark, I tried that, but how do you close menu?
I've been stymied at every turn...
I also tried to uncheck the Worksheet Menu Bar using
View | Toolbars | Customize command, but it re-appears
when the [ Close ] button is pressed. I beginning
to believe that it can't be turned-off (at least
not without resorting to VBA).
Posted by Juan Pablo G. on December 10, 2001 2:53 PM
Re: Hi Mark, I tried that, but how do you close menu?
I haven't found the help file yet, but i think i read that "Excel needs to have one Menu Bar visible at all time", so, i don't think this is a chance.
Juan Pablo G.
Posted by Ken on December 10, 2001 3:41 PM
This is the best I could do, but could not get it to activate on event
Sub Disable_Menu_Bar()
CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
Sub Enable_Menu_Bar()
CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Sub Toggle_Menu_Bar()
If CommandBars("Worksheet Menu Bar").Enabled = True Then
CommandBars("Worksheet Menu Bar").Enabled = False
Else: CommandBars("Worksheet Menu Bar").Enabled = True
End If
End Sub
Posted by Richard Winfield on December 10, 2001 4:17 PM
Re: This is the best I could do, but could not get it to activate on event
This set of macros will remove all excel menus and toolbars except for a custom one that you design. I used this in a packing list program to stop inexperienced users from making changes. When the workbook is opened the autorun macro runs and there are only 2 buttons visible. The close sub is actually part of another macro in this instance, but it will work as a stand alone sub as well. You must first design the custom toolbar and enable it before saving and running the macro. Hope this helps some :)
Sub Auto_Open()
'
' autoopen Macro
' Macro recorded 12/10/2001 by Richard Winfield
'
Application.ScreenUpdating = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayFormulaBar = False
'
End Sub
Sub Close
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("ChangingButton").Visible = True {this is the bar that I designed}
CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
Exit Sub