关于工作表单元格锁定

zyning

第一部分

    　Private Sub Worksheet_Change(ByVal Target As Range)

　　X = Target

　　End Sub

第二部分

　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　If Target.Column <= 5 And Target.Row <= 10 Then

　　Y = InputBox("请输入密码：")

　　If Y <> 123 Then

　　MsgBox "密码错误，你无编辑权限!"

　　Range("A11").Select

　　End If

　　End If

　　End Sub

这段代码在使用中死循环，一直提示输入密码，请高人指点下哪里的问题

还有代码中的第一部分可以省略吗？

感谢

用一下代码实现了想要的效果
Private Sub Worksheet_Activate()
    If Application.InputBox("请输入密码") <> "123" Then
        Worksheets("Coverpage").Select
        Worksheets("原始库存").Visible = False
        MsgBox "密码错误，你无编辑权限!"
    End If
    Worksheets("原始库存").Visible = True
End Sub

liulang0808

If Y & "" <> "123" Then

zyning

liulang0808 发表于 2018-5-21 06:59
If Y & ""  "123" Then

运行结果是一样的，还是不可以

liulang0808

zyning 发表于 2018-5-21 08:55
运行结果是一样的，还是不可以

建议楼主上传附件进行说明吧

zyning

liulang0808 发表于 2018-5-21 09:02
建议楼主上传附件进行说明吧

Private Sub Worksheet_Activate()
    If Application.InputBox("请输入密码") <> "123" Then
        Worksheets("Coverpage").Select
        Worksheets("原始库存").Visible = False
        MsgBox "密码错误，你无编辑权限!"
    End If
    Worksheets("原始库存").Visible = True
End Sub

zyning

liulang0808 发表于 2018-5-21 09:02
建议楼主上传附件进行说明吧

1. Private Sub Worksheet_Activate()
   
2.     If Application.InputBox("请输入密码") <> "123" Then
   
3.         Worksheets("Coverpage").Select
   
4.         Worksheets("原始库存").Visible = False
   
5.         MsgBox "密码错误，你无编辑权限!"
   
6.     End If
   
7.     Worksheets("原始库存").Visible = True
   
8. End Sub

复制代码

用这段代码实现了想要的效果，谢谢