woops gave the same code
heres the code I have for
before close or deactivate

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With

Dim Row As Long
Dim TBar As String
Row = 1
TBar = Sheets("sheet1").Cells(Row, 1)
Do While TBar <> ""
Application.CommandBars(TBar).Visible = True
Row = Row + 1
TBar = Sheets("sheet1").Cells(Row, 1)
Loop

ActiveWindow.Zoom = 100
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With

End Sub