コピペで使えるVBA！シートを一括で表示/非表示するコード。隠れているシートを一気に表示可能！

Sub 全てのシートを表示()
    For i = 1 To Worksheets.Count
        Worksheets(i).Visible = True
    Next
End Sub

Sub 全てのシートを非表示()
    For i = Worksheets.Count To 2 Step -1
        Worksheets(i).Visible = False
    Next
End Sub

Sub シート名を指定して表示()
    検索文字 = "*" & InputBox(prompt:="表示するシート名を入力してください。デフォルトは全て", Default:="*") & "*"
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name Like 検索文字 Then Worksheets(i).Visible = True
    Next
End Sub

Sub シート名を指定して非表示()
    検索文字 = "*" & InputBox(prompt:="非表示にするシート名を入力してください。デフォルトは全て", Default:="*") & "*"
    On Error Resume Next
    For i = Worksheets.Count To 1 Step -1
        If Worksheets(i).Name Like 検索文字 Then Worksheets(i).Visible = False
    Next
End Sub