工作表自动保护 登记过不能修改

nnsea

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

nnsea

须要开启VBA！按alt+F11键，进入VBA编辑页面

nnsea

wps不能用，只能用于EXCEL