请教个隐藏sheet后超链接会失效的问题

首先本人excel水平还没到懂vba的地步
有个需求就是，excel工作簿除了第一页以外，其它的sheet都要隐藏，但第一页的超链接要能进去后面的隐藏sheet。隐藏sheet中的超链也要能进去其它隐藏sheet。隐藏sheet回到第一页后要自动隐藏其它sheet。
网上搜了半天只找到这个
Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "文件目录" And Sheets(i).Name <> "Forecast Sum" Then Sheets(i).Visible = 0
Next
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim sh As Object
On Error Resume Next
Set sh = Sheets(Replace(Split(Target.SubAddress, "!")(0), "'", ""))
If Not sh Is Nothing Then
Application.EnableEvents = False
sh.Visible = xlSheetVisible
Target.Follow
Application.EnableEvents = True
End If
End Sub