Private Sub Workbook_Open()
On Error Resume Next
'------------------------------------------------------------------------------
    Application.Calculation = xlManual      'вручную
'------------------------------------------------------------------------------
    With Application                        'автоматически, кроме таблиц данных
        .Calculation = xlManual             '
        .CalculateBeforeSave = True         '
    End With                                '
'------------------------------------------------------------------------------
    Application.Calculation = xlAutomatic   'автоматически
'------------------------------------------------------------------------------
End Sub