エクセルVBA「開いているブックをすべて閉じる」

Excelマクロ(VBA)

会社で作業中に、エクセルブックを開きすぎて、タスクバーが乱雑になり、能率がさがったことはありませんでしょうか?

そんな時に便利な、エクセルVBAの便利マクロ「開いているブックを、個人用マクロブックを除き、すべて保存せずに閉じるマクロ」をシェアします。

参考になれば幸いです。

機能紹介

マクロを実行すると、 開いているブックを、個人用マクロブックを除き、すべて保存せずに閉じます。

マクロコード紹介

コードは以下の通りです。

Sub 全て閉じる()

   Dim wb As Workbook
    Application.DisplayAlerts = False
   
   For Each wb In Workbooks
   If Not wb.Name = "PERSONAL.XLSB" Then
    wb.Close SaveChanges:=False
    End If
   Next
   
   Application.WindowState = xlMinimized
   
End Sub

まとめ

いかがでしたでしょうか。

参考になれば幸いです。

その他、エクセルマクロの便利ツールは以下記事を参照ください。

本稿で紹介したマクロのサポートやカスタマイズ、もしくは新規案件については、条件によって、有償にて対応受付しております。

以下、クラウドワークスないしココナラのアカウントよりご依頼いただければ幸いです。

FIRE太郎さん(その他)に依頼・外注する | 簡単ネット発注なら【クラウドワークス】
日本最大のクラウドソーシング「クラウドワークス」にご登録いただいているFIRE太郎さんのプロフィールです。その他のスキルを持つプロフェッショナルに1時間から仕事を気軽に発注!発注者は手数料無料。
FIRE太郎さん(会社員)のプロフィール | ココナラ
Excelマクロ(VBA)による自動化ツールの作成が得意です。|ブログ「FIRE(早期リタイア)研究所」運営中

コメント

タイトルとURLをコピーしました