XL 2016 Bloquer la sauvegarde

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E2:E12")) Is Nothing Then

    If Application.CountA(Range("E2:E12")) = 9 Then
        Range("A13") = Application.CountIf(Range("E2:E12"), "green")
        Range("A14") = Application.CountIf(Range("E2:E12"), "yellow")
        Range("A15") = Application.CountIf(Range("E2:E12"), "red")

    End If
    End If

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim n
n = 9 - Application.CountA([E2:E3,E5:E6,E8:E12])
If n Then Cancel = True: MsgBox "Il manque " & n & " couleur" & IIf(n > 1, "s", "")
End Sub