[VBA ] 想请问如何使储存格输入后自动上锁

楼主: yoyoyoo (我没有朋友)   2022-06-06 13:57:13
请问如何设定储存格输入后可以自动上锁
要解锁需要密码
目前已有的资讯为
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
Target.Locked = False
If Target.Cells(1).Value <> "" Then
Target.Locked = True
ActiveSheet.Protect Contents:=True
End If
End Sub
这个条件下 储存格输入后可自动上锁
但是解锁不用密码
希望能增加解锁需要密码的条件式
作者: Catbert (宅男)   2022-06-06 21:57:00
Protect的后面加上 Password:="password"
楼主: yoyoyoo (我没有朋友)   2022-06-06 22:36:00
请问是把Content:=True换掉吗?
作者: waiter337 (给开司一罐苏格登)   2022-06-07 12:16:00
我觉得 这需求的底层逻辑 好像跟工作表有冲突
楼主: yoyoyoo (我没有朋友)   2022-06-07 13:44:00
已找到解决方法,在Unprotect跟Protect后面都要加Password:="password" 感谢各位回复

Links booklink

Contact Us: admin [ a t ] ucptt.com