Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not Controle Then
MsgBox "Ce document ne peut pas être sauvé" & vbCrLf & "Il y a des erreurs dans certaines cellules", vbExclamation Or vbOKOnly, "Erreurs"
Cancel = True
End If
End Sub
Private Function Controle() As Boolean
Dim r As Range
Controle = True
For Each r In Feuil1.Range("A1:A" & Feuil1.[A1].End(xlDown).Row)
If r.Font.Color <> RGB(255, 0, 0) Then
Controle = False
Exit Function
End If
Next r
End Function