*: =Embedded VBA Code=: -Public WithEvents Appl As Application + Public WithEvents Appl As Application -Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook) + Private Sub Appl_WorkbookOpen(ByVal Wb As Workbook) If Application.Calculation = xlCalculationAutomatic Then If ActiveWorkbook.ForceFullCalculation = True Then ActiveWorkbook.ForceFullCalculation = False @@ -143,13 +143,13 @@ Application.Quit End If End If -End Sub + End Sub -Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) + Private Sub Appl_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) If Application.Calculation = xlCalculationManual Then MsgBox "Closing Workbook" ActiveWorkbook.ForceFullCalculation = True End If -End Sub + End Sub