Option Explicit
Const MIN_ROW As Long =  1 
Const MIN_COL As Long =  1 
Const MAX_ROW As Long =  15 
Const MAX_COL As Long =  15 
Const MAX_NUMBER_OF_ATTEMPTS As Long =  2 

Dim nArr(MIN_ROW To MAX_ROW, MIN_COL To MAX_COL) As Long

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' проверяем на попадание в рабочий диапазон
If Target.Row >= MIN_ROW And Target.Row <= MAX_ROW And _
    Target.Column >= MIN_COL And Target.Column <= MAX_COL Then
    ' проверяем на количество нажатостей :)))
    If nArr(Target.Column, Target.Row) < MAX_NUMBER_OF_ATTEMPTS Then
        nArr(Target.Column, Target.Row) = nArr(Target.Column, Target.Row) +  1 
' Преобразовываем в число(получаем 0 или 1, потом преобразовываем в логическое значение,
' потом инвертируем полученное логическое значение,преобразовываем результат в число и берём по модулю :)))
        Target.Value = Abs(CInt(Not CBool(Val(Target.Value))))
    Else
        Target.Interior.ColorIndex =  36 
    End If
End If
Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long, j As Long
'Просто очищаем что наделали :)))
For i = MIN_ROW To MAX_ROW
    For j = MIN_COL To MAX_COL
        nArr(i, j) =  0 
        With Cells(i, j)
            .Value =  0 
            .Interior.ColorIndex =  0 
        End With
    Next j
Next i
End Sub