[VBA ] 想請問如何使儲存格輸入後自動上鎖
請問如何設定儲存格輸入後可以自動上鎖
要解鎖需要密碼
目前已有的資訊為
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://www.ptt.cc/bbs/Visual_Basic/M.1654495052.A.DD4.html
→
06/06 21:57,
1年前
, 1F
06/06 21:57, 1F
→
06/06 22:36,
1年前
, 2F
06/06 22:36, 2F
推
06/07 12:16,
1年前
, 3F
06/07 12:16, 3F
→
06/07 13:44,
1年前
, 4F
06/07 13:44, 4F
→
06/07 13:45,
1年前
, 5F
06/07 13:45, 5F