[已解决]请帮忙完善一下代码

huchuanxing

这是网上找到的一个单元格输入内容后即被锁定的VBA代码，挺好的，不过有一个缺陷，就是假如你选择2个以上（含2个）空单元格也会弹出“修改内容请输入密码”的对话框，请邦忙完善一下这个代码，即选择2个以上空单元格时不要弹出“修改内容请输入密码的对话框”。谢谢。
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If .Value <> "" Then
PW = InputBox("修改内容请输入密码：")
If PW <> "123" Then
Cells(1, 1).Select
Else
Exit Sub
End If
End If
End With
End Sub

最佳答案

月排行榜 / 总排行榜

一沫昔阳虹w

2016-10-25 13:41

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target.range("a1")
If .Value <> "" Then
PW = InputBox("修改内容请输入密码：")
If PW <> "123" Then
Cells(1, 1).Select
Else
Exit Sub
End If
End If
End With
End Sub

跳转到最佳答案楼层

一沫昔阳虹w

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target.range("a1")
If .Value <> "" Then
PW = InputBox("修改内容请输入密码：")
If PW <> "123" Then
Cells(1, 1).Select
Else
Exit Sub
End If
End If
End With
End Sub

huchuanxing

一沫昔阳虹w 发表于 2016-10-25 13:41
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target.rang ...

非常感谢！

zjdh

With Target.range("a1")
可改为
With Target(1)