大难题，恳请高手指点

蓝纸船

三个以上的工作表怎么改代码呀？
以前学过C，不过都忘光了。
请您再指点一下吧。
谢谢啦。

蓝纸船

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.EnableEvents = False
Dim pass$
pass = InputBox("请输入密码:")
If InStr(Target.SubAddress, "资料1") Then
    If pass = "111" Then
        Sheets("资料1").Visible = xlSheetVisible
        Target.Follow
    Else
        MsgBox "密码错误！"
    End If
Else
    If pass = "222" Then
        Sheets("资料2").Visible = xlSheetVisible
        Target.Follow
    Else
        MsgBox "密码错误!"
    End If
Else
    If pass = "333" Then
        Sheets("资料3").Visible = xlSheetVisible
        Target.Follow
    Else
        MsgBox "密码错误!"
    End If
Else
    If pass = "444" Then
        Sheets("资料4").Visible = xlSheetVisible
        Target.Follow
    Else
        MsgBox "密码错误!"
    End If
End If
Application.EnableEvents = True
End Sub

提示说少了个IF
要怎么改才对呢？

honggexjq

修改了下，密码太多总感觉比较麻烦

蓝纸船

谢谢honggexjq的热心解答！
谢谢！
我再套用到原表中试试，如果有问题再请教您。
谢谢。