【VBA】開いている全ブックをバックグラウンドで非表示にする方法

日々の業務では複数のExcelファイルを開きっぱなしにしてしまうことがあります。しかし、これら全てのブックが開いていると画面が煩雑になり作業効率が下がります。そこで、この記事ではVBAを使用してバックグラウンドで全ワークブックを非表示にし、スムーズな作業環境を作り出す方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub HideAllOpenBooks()
    Dim wb As Workbook
    Application.ScreenUpdating = False '画面更新停止
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then '現在のマクロが入っているワークブックは除外
            wb.Visible = xlSheetHidden '他のすべてのワークブックを非表示にする
        End If
    Next wb
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。