エクセル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

まとめ

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

参考になれば幸いです。

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

エクセルマクロ（VBA）を活用し、生産性を向上させる

FIRE（早期リタイア）を実現するためには、一定の資産の蓄財と、当該資産が、生涯にわたって尽きないという状態が必要です。 その状態を早期に達成するためには、仕事の生産性を向上させるのが効果的です。仕事の生産性を向上させると...

hineke.jp

2022.04.19

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

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

FIRE太郎さん(その他)に依頼・外注する | 簡単ネット発注なら【クラウドワークス】

日本最大級のクラウドソーシング「クラウドワークス」にご登録いただいているFIRE太郎さんのプロフィールです。その他のスキルを持つプロフェッショナルに1時間から仕事を気軽に発注！発注者は手数料無料。

crowdworks.jp

FIRE太郎さん(会社員)のプロフィール | ココナラ

Excelマクロ（VBA）による自動化ツールの作成が得意です。｜ブログ「FIRE（早期リタイア）研究所」運営中

coconala.com