【VBA】開いている全ブックの背景色を一括で変更する方法

日々の業務で大量のExcelファイルを開きっぱなしにしていませんか？その中から特定のワークブックだけを目立たせる方法をお探しではありませんか？この記事では、開いている全てのワークブックに対して背景色を一括で変更するVBAマクロを作成します。確認メッセージを出さずに高速に実行できるので、業務効率化にお役立てください。

サンプルコード

VBA

Option Explicit
Sub ChangeWorkbookBackgroundColors()
    Dim wb As Workbook
    Application.ScreenUpdating = False '画面更新を停止
    For Each wb In Workbooks
        If Not wb.Name Like "*Book*" Then '開いている全てのブックに対して適用（Excelが自動生成する「ブック1」「ブック2」は除外）
            wb.Windows(1).VisibleSheetView.BackColor = RGB(255, 0, 0) '背景色を赤に変更
        End If
    Next wb
    Application.ScreenUpdating = True '画面更新を再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

ワークブック名やファイルパスが正しいか確認してください。また、変更対象のワークブックが開かれていることを確認してください。