【VBA】開いている全ブックを確認メッセージを出さずに削除する方法

日々の業務で大量のExcelファイルを開きっぱなしにしていませんか？この記事では、開いている全ワークブックを一括で削除する方法を紹介します。確認メッセージが出ることなく、高速に処理できるので作業効率が大幅にアップします。

サンプルコード

VBA

Option Explicit
Sub DeleteAllOpenedWorkbooks()
    Dim wb As Workbook
    Application.DisplayAlerts = False '警告メッセージを非表示にする
    For Each wb In Workbooks
        If Not wb Is ThisWorkbook Then wb.Close SaveChanges:=False '現在のワークブック以外を閉じる
    Next wb
    Application.DisplayAlerts = True '元に戻す
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。