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.
--
Regards,
John


"JLGWhiz" wrote:

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

"John Keith" wrote:

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?

--
Regards,
John