关于利用VBA如何实现 锁定单元格 （非保护工作表）

nihaocwm

本人想利用 VBA实现 对某些单元格的锁定（即：不能 见其公式或修改）
已有如下 代码：实现 锁定 A1——E10 输入密码 可修改

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

请问 对单个单元格进行锁定 例如： 只锁定 A1  B2 C3 。其他单元格不锁定。
等待高手帮助 谢谢·

ui

用手工操作好实现!

pureshadow

所谓锁定，就是不让修改嘛……
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Range("f1").Select
End If
End Sub

刘志文

向妖学习！