Private Sub Workbook_Open()
For i = 1 To Sheets.Count
If Sheet(i).Name <> "目录" Then Sheets(i).Visible = 2
Next
End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
t = Left(Target.Range, InStr(Target.Range, "!") - 1)
Sheets(t).Visible = -1
Sheets(t).Select
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024