Here it is...
Private Sub Workbook_Open()
On Error Resume Next
Application.ScreenUpdating = False
InitView
Sheets("1st page"

.Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
ActiveWorkbook.Saved = True
ExitView
End Sub
Sub InitView()
SetMenu
SetWindow xlOn
SetBars xlOn
End Sub
Sub ExitView()
ZapMenu
SetWindow xlOff
SetBars xlOff
End Sub
Sub SetMenu()
Dim myBar As CommandBar
Dim myButton As CommandBarButton
ZapMenu
Set myBar = CommandBars.Add(Name:="OCM", _
Position:=msoBarTop, _
MenuBar:=True)
Set myButton = myBar.Controls.Add(msoControlButton)
myButton.Style = msoButtonCaption
myButton.Caption = "&Start the exercise"
myButton.OnAction = "Start_routine"
Set myButton = myBar.Controls.Add(msoControlButton)
myButton.Style = msoButtonIcon
Set myButton = myBar.Controls.Add(msoControlButton)
myButton.Style = msoButtonCaption
myButton.Caption = "&Go to LDC data"
myButton.OnAction = "go_LDC_Data"
myButton.Visible = False
Set myButton = myBar.Controls.Add(msoControlButton)
myButton.Style = msoButtonIcon
Set myButton = myBar.Controls.Add(msoControlButton)
myButton.Style = msoButtonCaption
myButton.Caption = "&Go to LDC Chart"
myButton.OnAction = "go_LDC_Chart"
myButton.Visible = False
Set myButton = myBar.Controls.Add(msoControlButton)
myButton.Style = msoButtonIcon
Set myButton = myBar.Controls.Add(msoControlButton)
myButton.Style = msoButtonCaption
myButton.Caption = "E&xit"
myButton.OnAction = "ExitOCM"
myBar.Protection = msoBarNoMove + msoBarNoCustomize
myBar.Visible = True
End Sub
Sub SetBars(State)
Static myOldBars As New Collection
Dim myBar
If State = xlOn Then
For Each myBar In Application.CommandBars
If myBar.Type <> 1 And myBar.Visible Then
myOldBars.Add myBar
myBar.Visible = False
End If
Next myBar
Else
For Each myBar In myOldBars
myBar.Visible = True
Next myBar
End If
End Sub
Sub SetWindow(State)
Static myOldState
Application.ScreenUpdating = False
On Error Resume Next
If State = xlOn Then
myOldState = Application.WindowState
Application.WindowState = xlMaximized
Application.Caption = "Optimal Capacity Mix"
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Caption = ""
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Else
Application.Caption = Empty
Application.WindowState = myOldState
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
End If
End Sub
BTW, Status Bar does not restore either...