[VBA ] 想請問如何使儲存格輸入後自動上鎖

[yoyoyoo (我沒有朋友)]

請問如何設定儲存格輸入後可以自動上鎖
要解鎖需要密碼

目前已有的資訊為
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
→ Catbert: Protect的後面加上 Password:="password"
→ yoyoyoo: 請問是把Content:=True換掉嗎?
推 waiter337: 我覺得 這需求的底層邏輯 好像跟工作表有衝突
→ yoyoyoo: 已找到解決方法，在Unprotect跟Protect後面都要加
→ yoyoyoo: Password:="password"  感謝各位回覆