[vba/excel] エクセルの動作一括制御

gistfile1.vb

'##############################################################################

'エクセルの動作一括制御

'##############################################################################

'------------------------------------------------------------------------------
'エクセルの自動機能停止
'------------------------------------------------------------------------------
'【引数】
'【戻り値】
'【備考】
Private Sub FreezeExcel()
    With Application
        .Visible = False '全体の表示を停止
        .DisplayAlerts = False 'アラートの表示を停止
        .StatusBar = False 'ステータスバーの表示更新を停止
        .ScreenUpdating = False 'スクリーンの描画を停止
        .EnableEvents = False 'イベントを一時停止
        .Calculation = xlManual '計算を手動モードにする
    End With
End Sub
   
'------------------------------------------------------------------------------
'エクセルの自動機能再開
'------------------------------------------------------------------------------
'【引数】
'【戻り値】
'【備考】
Private Sub MeltExcel()
    With Application
        .Calculation = xlAutomatic '計算を自動モードに戻す
        .EnableEvents = True 'イベントを再開
        .ScreenUpdating = True 'スクリーンの描画を再開
        .StatusBar = True 'ステータスバーの表示を再開
        .DisplayAlerts = True 'アラートの表示を再開
        .Visible = True '全体の表示を回復
    End With
End Sub