EXCEL利用VBA隐藏工作表，并通过超链接打开隐藏工作表

Question

如图，我想实现的是。 上图表中 目录为主目录，222 和333 为分目录，当打开EXCEL时，只显示目录工作表，其它的为深度隐藏，不能通过取消隐藏显示。目录里面有二个单元格分别链接到222 和333 工作表，点击进入相应表格里，222和333同样超链接到444和555， 444和555为三级，222和333为2级 目录为1级，只要回到目录页，其它的自动深度隐藏 请问 大神 如何实现

Answer 1

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

追问

编译错误呢  å¤§ç¥ž

追答

不好意思，少打了个s，自己加上去吧