如何批量取消隐藏的工作表 EXCEL VBA

　

Sub UnhideAllSheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

MsgBox "所有隐藏的工作表已取消隐藏！"

End Sub