Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B5:M14")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B19:M28")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B33:M42")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B47:M56")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B61:M70")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B75:M84")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B89:M98")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B103:M112")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B117:M126")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B131:M140")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("B145:M154")) Is Nothing Then
Sheets("Planning").Unprotect
End If
If Not Application.Intersect(Target, Range("A1:A204")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B1:M4")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B15:M18")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B29:M32")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B43:M46")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B57:M60")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B71:M74")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B85:M88")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B99:M102")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B113:M116")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B127:M130")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B141:M144")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("B155:Z500")) Is Nothing Then
Sheets("Planning").Protect
End If
If Not Application.Intersect(Target, Range("Q1:Z500")) Is Nothing Then
Sheets("Planning").Protect
End If
End Sub