Excel中隐藏或显示工作簿中的所有工作表方法

1、如果要隐藏工作簿中除活动工作表外的所有工作表，代码可以定为：

Sub 隐藏活动工作表外的所有工作表()    Dim Sht As Worksheet    For Each Sht In Worksheets        If Sht.Name <> ActiveSheet.Name Then            Sht.Visible = False        End If    Next Sht End Sub

2、如果要显示工作簿中所有已经隐藏的工作表，代码可以写为：

Sub 显示已经隐藏的工作表()    Dim Sht As Worksheet    For Each Sht In Worksheets        Sht.Visible = True    Next Sht End Sub