[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