运行时错误1004

136212129

Private Sub Worksheet_Activate()
    Dim sh As Object
    For Each sh In Sheets
        If sh.Name <> "目录" Then sh.Visible = xlSheetHidden
    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

ww87725244

第一：没有附件
第二：未说明版本(是WPS还是微软OFFICE，版本是多少？2003？2010？2016？......)

考试加油站

Private Sub Worksheet_Activate()
    Dim sh As Object
    For Each sh In Sheets
        If sh.Name <> "目录" Then sh.Visible = xlSheetHidden
    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
    Else
        MsgBox "工作表不存在： " & Replace(Split(Target.SubAddress, "!")(0), "'", "")
    End If
End Sub