Private Sub Worksheet_Change(ByVal Target As Range)
Dim ok As Boolean
If Not Intersect(Target, Range("$B$1:$L$2,$P$1:$T$2")) Is Nothing Then
With Range("$A$9:$W$51,$U$2:$W$2,$C$52:$D$56")
Me.Unprotect
.Locked = Application.CountA(Range("$B$1:$L$2,$P$1:$T$2")) <> 4
Me.Protect
End With
End If
End Sub