【エクセルVBA】非表示シートを一括再表示するVBA

あのー、Excelの非表示シートを一括再表示する方法ってありますか。

あー、標準機能では用意されていませんね。

そうですよねー。めんどうだなー。

では、マクロで解決しましょう！

Excelの非表示シートを一括再表示できるマクロをご紹介します。
複数ファイルもまとめて処理可能です。

マクロ機能が有効なExcelブック「.xlsm」を作成

Excelブック「.xlsm」の作成方法が不明な場合は、下記の記事を参考にして下さい。
【エクセルVBA】マクロ機能が有効なExcelブック「.xlsm」の作り方

コードを標準モジュールに貼り付け

標準モジュールの開き方が不明な場合は、下記の記事を参考にして下さい。
【エクセルVBA】標準モジュールの開き方

標準モジュールを開いて、下記のコードを貼り付けて下さい。

コード

Sub シート一括再表示()
 
    Application.ScreenUpdating = False
    
    Dim OpenFileName As Variant
    OpenFileName = Application.GetOpenFilename _
            ("EXCELファイル,*.xls*", MultiSelect:=True)
    
    If Not IsArray(OpenFileName) Then
        MsgBox "キャンセルされました。処理を終了します。": Exit Sub
    End If
  
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject
    
    Dim n As Long '選択したファイル数、処理を繰り返す
    
    For n = LBound(OpenFileName) To UBound(OpenFileName)
    
        Dim wb As Workbook
        Set wb = Workbooks.Open(OpenFileName(n))

        Dim sh As Object  ' WorksheetまたはChart
        
        For Each sh In Sheets
          sh.Visible = True
        Next sh
 
        wb.Close SaveChanges:=True
 
        Set wb = Nothing '一時解放
    
    Next n
 
    Application.ScreenUpdating = True
 
    MsgBox "完了しました。処理を終了します。"
 
End Sub