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


"FSt1" wrote:

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

regards
FSt1

"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