Toolbars GONE!

[John Keith]

I am trying to help a co-worker get his toolbars back.

No portion of any toolbar is visible so they settings can not be
selected/re-enabled.

I have tried to run this code, but his verson of Office2003 does not allow
the last 2 statements. Nor does the Worksheet menu bar reappear.

Application.CommandBars("Worksheet Menu Bar").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True

What are my options?

 

[JLGWhiz]

This should put everything back.

Sub fixScreen()
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
With ActiveWindow 'This with statement sets everything to normal
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
End Sub

 

[FSt1]

hi,
try
Application.CommandBars("Worksheet Menu Bar").enabled = True

regards
FSt1

 

[John Keith]

This codes will run, but the only part visible is the formula bar. No tool
bars, no worksheet menu(File Edit View...) the only option is the redX to
close out.

This is rather critical since its the bosses PC and he needs to work on pay
raises!!

Is there some file that can be changed to force the toolbars back? We are
about to have to do a full reinstall.

 

[John Keith]

..Enabled WORKED!... but,
Still none of the tool bars are visible nor available to be added back to
the UI.

When rt-clicking on the blank-menu-bar area, the only option that shows is
Customize. Clciking that only shows one possible toolbar which is the
Worksheet menu bar. Where are: Standard, Formatting, Borders, Chart, Toolbox
etc.

 

[John Keith]

This is the code that I ended up using (that allowed my boss to re-choose
which toolbars to show...)

Sub Auto_Open()
Dim sRet As VbMsgBoxResult
Dim cbCommandBar As CommandBar
sRet = MsgBox("Do you wish to restore the basic excel settigns?", vbYesNo,
"Restore Excel Settings")
If sRet = vbNo Then Exit Sub

With Application
.CommandBars("Worksheet Menu Bar").Enabled = True
.CommandBars("ToolBar List").Enabled = True
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
With ActiveWindow 'This with statement sets everything to normal
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
On Error Resume Next
For Each cbCommandBar In Application.CommandBars
cbCommandBar.Enabled = True
Next cbCommandBar
On Error GoTo 0
End Sub

 

[Matt]

where do i type this code i lotst my menu bar and every time i right click