|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column <> 2 And Target.Column <> 13 Then Exit Sub
ActiveSheet.Unprotect Password:="tom"
If Target.Column = 2 Then
If Target.Value = "Finished" Then
Target.Resize(1, 12).Locked = True
Else
Target.Resize(1, 12).Locked = False
End If
Else
If Target.Value = "OK" Then
Target.Offset(0, -2).Resize(1, 3).Locked = True
Else
Target.Offset(0, -2).Resize(1, 3).Locked = False
End If
End If
ActiveSheet.Protect Password:="tom"
End Sub
逻辑有问题的 |
|