Option Explicit
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CalculateBeforeSave = False
End Sub
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub Workbook_open()
Application.Calculation = xlCalculationManual
End Sub