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

 　　如果要在工作簿中隐藏活动工作表以外的工作表，可以将代码编写为：

　　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

　　如果要显示和管理工作簿中隐藏的所有工作表，可以将代码编写为：

　　Sub 显示已经隐藏的工作表（）

　　Dim Sht As Worksheet

　　For Each Sht In Worksheets

　　Sht.Visible = True

　　Next Sht

　　End Sub