Excel でブックを閉じるときに"変更の保存を抑制する方法" プロンプト

例 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()

        ThisWorkbook.Saved = False の場合

            ThisWorkbook.Save End If

    End Sub

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