例 1: 変更を保存せずにブックを閉じる

変更を保存せずにブックを強制的に閉じるには、そのブックの Visual Basic モジュールに次のコードを入力します。
 

    Sub Auto_Close()

        ThisWorkbook.Saved = True

    End Sub

Saved プロパティが True に設定されている場合、Excel はブックがすでに保存されており、前回の保存以降に変更は行われていないかのように応答します。


プログラムの DisplayAlerts プロパティは、同じ目的で使用できます。 たとえば、次のマクロは DisplayAlerts をオフにし、変更を保存せずにアクティブなブックを閉じてから、DisplayAlerts を再びオンにします。
 

    Sub CloseBook()

        Application.DisplayAlerts = False

        ActiveWorkbook.Close

        Application.DisplayAlerts = True

    End Sub

Close メソッドの SaveChanges 引数を使用することもできます。

次のマクロは、変更を保存せずにブックを閉じます。
 

    Sub CloseBook2()

        ActiveWorkbook.Close savechanges:=False

    End Sub

例 2: ブックを閉じて変更を保存する

ブックに変更を強制的に保存するには、そのブックの Visual Basic モジュールに次のコードを入力します。
 

    Sub Auto_Close()

        If ThisWorkbook.Saved = False Then

            ThisWorkbook.Save End If

    End Sub

このサブプロシージャでは、ファイルの Saved プロパティが False に設定されているかどうかを確認します。 その場合、ブックは前回の保存以降に変更され、それらの変更は保存されます。