我之前用过一个表格，里面有50张sheet，但是只显示两个工作表，其余的工作表都被隐藏了。
重点来了！！！
第一张表是个目录，里面有剩下49张sheet的超链接，我随便点击一个就会自动弹出来对应序号的sheet，但是其余48张全部自动隐藏，也就是说这个工作簿始终只会显示2张工作表。我想知道这是怎么操作的，是需要vab代码吗
我知道普通隐藏工作表的方法，但是用原始隐藏方法的话，超链接是不会生效的。
有没有大神帮忙解答一下，万分感谢。

自己顶一下，希望有大神能帮个忙

链接用表名命名，点击链接取消隐藏并激活工作表同时隐藏另一个表

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each sht In Sheets
If sht.Name <> "目录" Then sht.Visible = xlSheetHidden
Next sht
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Worksheets(Target.Value).Visible = xlSheetVisible
Worksheets(Target.Value).Select
End If
End Sub
普通隐藏和深度隐藏都行，a列是工作表名，不用加超链接