アクティブなワークブック以外をすべて迅速に閉じるにはどうすればよいですか？

コンピュータで複数のワークブックが開かれている場合、他のワークブックはすべて閉じずにアクティブなワークブックだけを残したいとします。一つずつ閉じる以外に、この作業を迅速に行う方法はありますか？この記事では、ワンクリックでそれを解決するための簡単な方法について説明します。

VBAコードを使用してアクティブなワークブック以外をすべて閉じる

Office Tabを使用してアクティブなワークブック以外をすべて閉じる

VBAコードを使用してアクティブなワークブック以外をすべて閉じる

次のVBAコードを使用すると、アクティブなワークブック以外のすべての開いているワークブックを迅速に閉じることができます。以下の手順で行ってください：

1. 開いたままにしておきたいワークブックをアクティブにします。

2. ALT + F11キーを押したままにし、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3. 挿入 > モジュールをクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード: アクティブなワークブック以外をすべて閉じる

Private Sub CloseOtherWorkbook()
'Updateby Extendoffice
Dim xWB As Workbook
Application.ScreenUpdating = False
For Each xWB In Application.Workbooks
    If Not (xWB Is Application.ActiveWorkbook) Then
        xWB.Close
    End If
Next
Application.ScreenUpdating = True
End Sub

4. そしてF5キーを押してこのコードを実行すると、他のすべてのワークブックが一度に閉じられ、アクティブなワークブックだけが残ります。

Office Tabを使用してアクティブなワークブック以外をすべて閉じる

新しい製品 - Office Tabに興味がある場合、それは複数のドキュメント/ファイルを単一のタブ付きウィンドウで開くのに役立ちます。これにより、ワンクリックでアクティブなワークブック以外をすべて閉じることができます。Office Tabについてさらに詳しく知り、ダウンロードできます。

Office Tabをインストールすると、開いているすべてのワークブックが1つのタブ付きウィンドウに表示されます。スクリーンショットをご覧ください：

次に、開いたままにしたいワークブック名をクリックし、名前タブを右クリックして、コンテキストメニューから「他を閉じる」を選択します。スクリーンショットをご覧ください：

そして、アクティブなワークブックのみが開かれていることが確認できます。

関連記事：

Excelですべてのワークブックを迅速に閉じるにはどうすればよいですか？