首页 › 实战技术 › 输入数据自动锁定VBA

nnsea 发表于 2023-10-26 23:40:14

输入数据自动锁定VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheet1.Unprotect Password:="123"
If Target.Value <> "" Then
Target.Locked = True
Sheet1.Protect Password:="123"
End If
End Sub

查看完整版本: 输入数据自动锁定VBA