楼主:
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
这个条件下 储存格输入后可自动上锁
但是解锁不用密码
希望能增加解锁需要密码的条件式