请问如何设定储存格输入后可以自动上锁
要解锁需要密码
目前已有的资讯为
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
这个条件下 储存格输入后可自动上锁
但是解锁不用密码
希望能增加解锁需要密码的条件式

Protect的后面加上 Password:="password"

请问是把Content:=True换掉吗?

我觉得 这需求的底层逻辑 好像跟工作表有冲突

已找到解决方法，在Unprotect跟Protect后面都要加Password:="password" 感谢各位回复