作者yoyoyoo (我没有朋友)
看板Visual_Basic
标题[VBA ] 想请问如何使储存格输入後自动上锁
时间Mon Jun 6 13:57:13 2022
请问如何设定储存格输入後可以自动上锁
要解锁需要密码
目前已有的资讯为
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
这个条件下 储存格输入後可自动上锁
但是解锁不用密码
希望能增加解锁需要密码的条件式
--
大婶：现在的年轻人不能吃苦，只想坐办公室，一群嫩草莓
工地工人：你女儿愿意嫁我吗？
大婶：我家女儿只嫁给医生！
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.126.114.237 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1654495052.A.DD4.html
1F：→ Catbert: Protect的後面加上 Password:="password" 06/06 21:57
2F：→ yoyoyoo: 请问是把Content:=True换掉吗? 06/06 22:36
3F：推 waiter337: 我觉得 这需求的底层逻辑 好像跟工作表有冲突 06/07 12:16
4F：→ yoyoyoo: 已找到解决方法，在Unprotect跟Protect後面都要加 06/07 13:44
5F：→ yoyoyoo: Password:="password" 感谢各位回覆 06/07 13:45