excel标签隐藏

来源：百度知道 编辑：UC知道 时间：2024/05/05 06:50:09
sheet 比较多，在一sheet1 中进行了超级连接，隐藏掉不需要的sheet ，当点击超级连接的时候会到相应的sheet中的，怎样使得在返回到sheet1的时候，其他sheet自动隐藏了？

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim t%
If ActiveSheet.Name Like "sheet 的标签名" Then
On Error Resume Next
For t = 2 To 27
Sheets(t).Visible = False
Next
End If
End Sub