【VBA】非表示シートを確認メッセージを出さずに非表示にする方法

手作業で非表示にするシートがあると、毎回「このシートを非表示にしてもよろしいですか？」という確認メッセージが出ます。これを避けるための簡単なVBAマクロを作成しました。これを使えば、効率的に業務を進めることができます。

サンプルコード

VBA

Option Explicit
Sub HideSheetWithoutAlert()
    Dim ws As Worksheet
    Application.DisplayAlerts = False ' 確認メッセージを無効化
    For Each ws In ThisWorkbook.Sheets
        If ws.Visible = xlSheetVisible Then
            ws.Visible = xlSheetHidden ' 非表示にする
        End If
    Next ws
    Application.DisplayAlerts = True ' 確認メッセージを有効に戻す
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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