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

Question

如何使用VBA取消隐藏工作簿中的每个Excel工作表，而无需列出如下所示的所有工作表。

Sub UnhideAllSheets()

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

Answer 1

您可以使用以下VBA代码取消隐藏Excel中的所有工作表

Sub UnhideAllSheets()
    Dim ws As Worksheet

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

End Sub

归功于This Website