Hiding the Worksheet Menu Bar

[michaeldh]

Guys,

I was hoping you might have the answer to this issue I am having with a spreadsheet.

The creator has used some VBA to hide the Worksheet Menu bar upon the opening of the spreadsheet. That is "File" "Edit: "View" etc etc has been removed. When I go into customise Toolbars the Menu item for Worksheet Menu Bar has gone.

I have been through all areas of the code but cannot locate it. How do you hide this tool bar? How can you make these tool bars disappear from the Customise Toolbar options under the Toolbars Tab? Normally you can go in there and reset them etc etc

I would really appreciate your help with this.

Thanks.

Michael.

 

[Smitty]

See if this does it for you:

Sub EnableCommandBars()
    With Application.CommandBars("File").Controls
        .Item("New...").Enabled = True
        .Item("Open...").Enabled = True
        .Item("Save As...").Enabled = True
        .Item("Save as Web Page...").Enabled = True
        .Item("Save Workspace...").Enabled = True
        .Item("Print Area").Enabled = True
        .Item("Send To").Enabled = True
        .Item("Properties").Enabled = True
    End With
        
    With CommandBars("Worksheet Menu Bar")
        .Controls("Edit").Enabled = True
        .Controls("Edit").Visible = True
        .Controls("View").Enabled = True
        .Controls("View").Visible = True
        .Controls("Insert").Enabled = True
        .Controls("Insert").Visible = True
        .Controls("Format").Enabled = True
        .Controls("Format").Visible = True
        .Controls("Tools").Enabled = True
        .Controls("Tools").Visible = True
        .Controls("Data").Enabled = True
        .Controls("Data").Visible = True
        .Controls("Tools").Enabled = True
        .Controls("Tools").Visible = True
        .Controls("Window").Enabled = True
        .Controls("Window").Visible = True
        .Controls("Help").Enabled = True
        .Controls("Help").Visible = True
    End With
End Sub

HTH,

Smitty