Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [E5:AC22]) Is Nothing Then Cancel = True: Target = IIf(Target = "x", "", "x")
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("E2:AC22")) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then Target = Chr(149) Else Target = ""
End If
End Sub