1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Columns("D"), Target) Is Nothing Then
ActiveSheet.Unprotect
If Target = "10" Or Target = "25" Or Target = "40" Or Target >= "100" Then
Range("A:A, B:B, F:F, J:J, K:K, L:L, O:O").Locked = True And Range("N:N,P:P").Locked = False
Else
If Target = "5" Or Target = "15" Or Target = "20" Or Target = "30" Or Target = "35" Or Target = "45" Then
Range("A:A, B:B, F:F, N:N, K:K, P:P, O:O").Locked = True And Range("J:J, L:L").Locked = False
Else
Range("A:A, B:B, F:F, K:K, O:O").Locked = True And Range("N:N,P:P, J:J, L:L").Locked = False
End If
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub |
Partager