請問如何設定儲存格輸入後可以自動上鎖
要解鎖需要密碼
目前已有的資訊為
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
這個條件下 儲存格輸入後可自動上鎖
但是解鎖不用密碼
希望能增加解鎖需要密碼的條件式