Office中国论坛/Access中国论坛

标题: 关于利用VBA如何实现锁定单元格（非保护工作表） [打印本页]

作者: nihaocwm 时间: 2009-5-11 16:10
标题: 关于利用VBA如何实现锁定单元格（非保护工作表）
本人想利用 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 时间: 2009-5-11 17:08
用手工操作好实现!

作者: pureshadow 时间: 2009-5-12 13:35
所谓锁定，就是不让修改嘛……
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("f1").Select
End If
End Sub

作者: 刘志文 时间: 2009-9-12 21:33
向妖学习！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)