【VBA】開いている全ブックを高速に(画面更新停止)非表示にする方法

日々のExcel作業では、複数のワークブックを開いたままにしておくと視覚的にも整理が難しくなります。特に大量のデータを扱う場合、開いている全てのブックを一度に非表示にできれば業務効率は格段に上がります。この記事では、VBAを使用して高速で画面更新を停止しながら開いている全ワークブックを一括で非表示にする方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub HideAllWorkbooks()
    ' 開いている全てのワークブックを非表示にし、高速化のために画面更新を停止する。
    Application.ScreenUpdating = False
    Dim wb As Workbook
    For Each wb In Workbooks
        If Not wb.Name = ThisWorkbook.Name Then wb.Visible = xlSheetHidden
    Next wb
    Application.ScreenUpdating = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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