Excelの非表示シートが多くなると、すべてを表示させるのに手間がかかります。
非表示シートを確認せず、非表示シートに別のクライアントの機密情報を載せたまま提出してしまうと、大問題に発展しかねません。
そうならないためにも、シンプルではありますが是非下記のコードを保存しておきましょう！
ソースコード
以下、ソースコードになります。コピペして使ってください。
'-------------------------------------------
'概要：全シートを再表示にする
'-------------------------------------------
Sub ShowAllSheets()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
End Sub
コメント