前任者が大量のシートを個別に非表示にしていたり、通常の操作画面からは再表示できない最上位の不可視属性「xlSheetVeryHidden」を設定していたりする場合、GUI上で1枚ずつクリックして戻す作業は膨大な時間の浪費となります。
そうした場面を打破するために、すべてのシートを一括で強制可視化するエクセル非表示VBAコードを用意しました。エクセル上で「Alt + F11」を押してVBE（Visual Basic Editor）を開き、「挿入」＞「標準モジュール」に以下のコードを貼り付けて実行（F5キー）してください。
Sub UnhideAllSheetsAndCells() Dim ws As Worksheet Dim hiddenSheetCount As Long hiddenSheetCount = 0 ' 画面描画の停止による処理高速化 Application.ScreenUpdating = False ' ブック内のすべてのシートを巡回して再表示 For Each ws In ThisWorkbook.Worksheets If ws.Visible <> xlSheetVisible Then ws.Visible = xlSheetVisible hiddenSheetCount = hiddenSheetCount + 1 End If ' ワークシート内の隠れた行と列を一括再表示 ws.Cells.EntireRow.Hidden = False ws.Cells.EntireColumn.Hidden = False Next ws Application.ScreenUpdating = True MsgBox "処理が完了しました。" & vbCrLf & _ "再表示したシート数: " & hiddenSheetCount & " 枚", _ vbInformation, "一括解除完了" End Sub
このスクリプトは、単に通常の非表示シートを呼び戻すだけでなく、プロパティウィンドウから意図的に埋め込まれた特殊非表示シートも例外なく可視化します。さらに各シート内の隠蔽された行・列のフラグもすべて解除するため、開いたブックの全貌を数秒で点検することが可能になります。
