Option Explicit
Dim S&
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For S = 2 To Sheets.Count
Sheets(S).Visible = xlVeryHidden
Next S
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For S = 2 To Sheets.Count
Sheets(S).Visible = True
Next S
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub