ブックを保存しないでExcelを終了する：Excel（エクセル）マクロ

ブックを保存しないでExcelを終了するには、Quitメソッド実行前にブックのSavedプロパティをTrueにしておきます。

ブックを保存しないでExcelを終了するマクロを実行する

VBA入力画面


入力したコードです。

---

Sub 保存しないでExcel終了()
    Dim wk As Workbook

    For Each wk In Application.Workbooks
        wk.Saved = True
    Next
    
    Application.Quit
End Sub

プログラムの説明

---

Subプロシージャの宣言
Sub 保存しないでExcel終了()
ワークブックオブジェクトの変数を宣言
Dim wk As Workbook
ブックの数だけループする　（For Each Nextの使用方法）
For Each wk In Application.Workbooks
ブックのSavedプロパティをTrueに
wk.Saved = True
For Eachの終了
Next
Quitメソッドの実行
Application.Quit
プロシージャの終了
End Sub

ブックを保存しないでExcelを終了するマクロの実行画面

Book1はA2に”ABC”と入力済みで未登録です。
Book2はA1に”123”と入力済みで未登録です。
Excel-macro40は未変更です。


マクロ「保存しないでExcel終了」を実行します。


3個のブックはメッセージ等が表示されずに終了します。

Excelマクロのサンプルファイル：フリーダウンロード

---

---