I lost the Worksheet Menu Bar

tfreeman

New Member
Joined
Mar 22, 2004
Messages
45
As I explained in a post below, I entered some code to hide the Excel menus and show my custom menu. In doing so, I can't figure out how to get the Worksheet Menu Bar to come back! If I right-click on a toolbar and select customize, Worksheet Menu Bar isn't even an option. PLEASE HELP!
 

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.
No, that doesn't do it. It's also now gone from ALL of my workbooks, including new ones that I open.
 
Upvote 0
See if this helps:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> UnHideCommandBars()
    <SPAN style="color:#00007F">Dim</SPAN> x <SPAN style="color:#00007F">As</SPAN> CommandBar
        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> x <SPAN style="color:#00007F">In</SPAN> Application.CommandBars
        x.Enabled = <SPAN style="color:#00007F">True</SPAN>
    <SPAN style="color:#00007F">Next</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Smitty
 
Upvote 0
Maybe:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> Reset()
    <SPAN style="color:#007F00">'   Disable</SPAN>
    <SPAN style="color:#007F00">'Application.CommandBars("Worksheet Menu Bar").Enabled = False</SPAN>
    <SPAN style="color:#007F00">'   Enable</SPAN>
    <SPAN style="color:#007F00">'Application.CommandBars("Worksheet Menu Bar").Enabled = True</SPAN>
    <SPAN style="color:#007F00">'   Reset</SPAN>
    Application.CommandBars("Worksheet Menu Bar").Reset
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Although, you might need to recreate your code and reverse it if that doesn't work.

Smitty
 
Upvote 0
That didn't fix it either. The menu bar isn't showing in any workbooks that I open. Could I have disabled it from Excel completely?
 
Upvote 0

Forum statistics

Threads
1,215,831
Messages
6,127,139
Members
449,361
Latest member
VBquery757

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top