关于excel输入数据后自动锁定的问题！

Question

我们知道整个excel可以用香木的代码进行数据输入后自动锁定。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If .Value <> "" Then
PW = InputBox("修改内容请输入密码：")
If PW <> "123456" Then
Cells(1, 1).Select
Else
Exit Sub
End If
End If
End With
End Sub
但是，我只想对excel中的部分单元格实现数据输入后锁定该怎么办呢？
另外，跳出的输入密码提示框为什么要点两下关闭才可以呢！
上面的代码是在整个excel中任何单元格输入数据后锁定，更改数据要密码，我现在希望，只对某一部分单元格比如在A列实现数据录入后自动加密。

Answer 1

你的意思我还是没有看得太懂，你的意思是 实现输入以后就自动锁定已经输入的单元格还是需要把输入的数据和已经有的数据作比较后再锁定？
两者都需要用到vba来实现，也相对比较简单，把问题描述清楚点吧，要不无从帮起追问

上面的代码是在整个excel中任何单元格输入数据后锁定，更改数据要密码，我现在希望，只对某一部分单元格比如在A列实现数据录入后自动加密。

Answer 2

通过Ativate.cells.row或Ativate.cells.colcumn先判断当前激活的单元格是否是您所需的单元格