|
楼主 |
发表于 2020-2-11 11:28
|
显示全部楼层
大神,帮我看看我下面这段代码有什么问题
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column <> 2 Or Target.Column <> 17 Then Exit Sub
ActiveSheet.Unprotect Password:="tom"
'If Len(Target) > 0 Then Target.Resize(1, 13).Locked = True
If Target.Value = "Finished" Then Target.Resize(1, 12).Locked = True
If Target.Value <> "Finished" Then Target.Resize(1, 12).Locked = False
If Target.Value = "OK" Then Target.Offset(0, -2).Resize(1, 3).Locked = True
If Target.Value <> "OK" Then Target.Offset(0, -2).Resize(1, 3).Locked = False
ActiveSheet.Protect Password:="tom"
End Sub |
|