如何使用VBA取消隐藏工作簿中的每个Excel工作表？

Question

How can I Unhide every Excel sheet in a workbook using VBA without having to list all the sheets like below.

Sub UnhideAllSheets()

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

Answer 1

You can Unhide all of the sheets in Excel using the following VBA code

Sub UnhideAllSheets()
    Dim ws As Worksheet

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

End Sub

Credit to This Website