VBAを使用してブック内のすべてのExcelシートを表示するにはどうすればよいですか？

Question

VBAを使用してブック内のすべてのExcelシートを表示するには、以下のようなシートをすべて一覧表示する必要はありません。あなたは、次のVBAコードを使用してExcelでシートのすべてを再表示することができます

Sub UnhideAllSheets() 

    Sheets("Sheet1").Visible = True 
    Sheets("Sheet2").Visible = True 
End Sub 

Answer 1

Sub UnhideAllSheets() 
    Dim ws As Worksheet 

    For Each ws In ActiveWorkbook.Worksheets 
     ws.Visible = xlSheetVisible 
    Next ws 

End Sub 

クレジットThis Website

へ