Toolbars GONE!

J

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?
 
J

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
 
J

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.
 
J

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.
 
J

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top