单元格录入数据后自动保护

178490420 · 发表于 2012-4-24 13:45

郑杰 · 发表于 2012-11-1 16:58

看着代码就头大

gfp12345678 · 发表于 2014-2-23 21:07

学习中，谢谢分享

jstxzz · 发表于 2014-2-23 21:19

如果有个实例就好了

陈小林 · 发表于 2014-7-12 12:27

陈小林 · 发表于 2014-7-12 12:32

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target <> "" Then
Target.Locked = True
ActiveSheet.Protect password:="123"
End If
If Target = "" Then
ActiveSheet.Unprotect password:="123"
End If
End Sub
如选取一个区域的话就不用密码，可否实现选取区域时也删不了

lypsyh · 发表于 2014-7-13 06:43

学习了

913852310 · 发表于 2017-10-21 17:53

为什么不能用

350308271 · 发表于 2017-10-29 12:57

谢谢分享

ardu95 · 发表于 2018-2-20 07:57

学习学习

		自动登录	找回密码
密码			注册

[VBA] 单元格录入数据后自动保护