同時に開いている多数のブックを操作する場合、開いている各ブックを順番に調べて保存するのは面倒な場合があることをご存知でしょう。手動で行う必要なしに、開いているすべてのブックを保存できる単一のコマンドがあると便利ではないでしょうか。

残念ながら、リボンインターフェイスを使用するバージョンのExcelにはそのようなコマンドはありませんが、マクロを使用してコマンドを作成できます。以下は、使用できる良い例です。

Sub SaveAll()

Dim Wkb As Workbook     For Each Wkb In Workbooks         If Not Wkb.ReadOnly And Windows(Wkb.Name).Visible Then             Wkb.Save         End If     Next End Sub

マクロを個人用ブックに保存し、クイックアクセスツールバーまたはショートカットキーに割り当てると、何度でも呼び出すことができます。

読み取り専用または非表示のワークブックを除き、開いているすべてのワークブックを保存します。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（11079）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link開いているすべてのワークブックを保存する。