Toolbars GONE!
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
|