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

2025-03-09 09:37:30

推荐回答（1个）

回答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