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

残念ながら、そのようなコマンドはありません。最も近い解決策は、Shiftキーを押しながら[ファイル]メニューをクリックし、[すべて閉じる]を選択することです。終了の過程で、Excelは各ブックを保存するかどうかを尋ねます。

これの大きな欠点は、Excelが閉じ、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トレーニングのソースです。

このヒント（3307）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

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