One way would be using VBA.
The below code in the worksheet module would do the trick.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Not Intersect(Target, Range("B:D")) Is Nothing And Target.Row > 2 Then
Application.EnableEvents = False
Select Case Target.Column
Case 2
If Target = True Then
Cells(Target.Row, 3).Resize(1, 2) = False
End If
Case 3:
If Target = True Then
Target.Offset(, -1) = False
Target.Offset(, 1) = False
End If
Case 4:
If Target = True Then
Cells(Target.Row, 2).Resize(1, 2) = False
End If
End Select
Application.EnableEvents = True
End If
End If
End Sub
Note: This approach won't work if you're using Excel on a tablet or phone / web version of Excel.
BSB
Bookmarks