Where are my toolbars

[DGBedard]

I have a strange issue. When I open any spreadsheet, there are no tool bars . Nor are the menu headers (File, Edit, Format, etc) showing. Can anyone tell me how to get these back?

Thanks for you help

Dan

 

[VoG]

Right click a sheet tab and select View Code. Copy and paste in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cBar As CommandBar
ThisWorkbook.Protect Windows:=False
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
For Each cBar In CommandBars
cBar.Enabled = True
Next cBar
Beep
End Sub

Close the code window, then select a different cell. The missing menus etc. should reappear.