Ajout d'une question à un avertissement

Bonjour,

J'aimerais ajouter une question après l'avertissement, voulez-vous quitter quand même ?

Dans le cas Si la personne ouvre le fichier et ne veut pas saisir tout de suite mais seulement quitter.

Est-ce que c'est possible ?

Merci

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 If Worksheets("Validation").Range("A1").Value > 0 Then
MsgBox "Vous n'avez pas complété tous les champs requis qui ont des * rouges. Vous devez catégoriser chacun des titres d'emplois en veille ou requis et compléter la section d'identification."
   Cancel = True
   Else
   Cancel = False
  End If
  End Sub

Bonjour toutes et tous

je tente @ tester

 If Worksheets("Validation").Range("A1").Value > 0 Then
MsgBox "Vous n'avez pas complété tous les champs requis qui ont des * rouges. Vous devez catégoriser chacun des titres d'emplois en veille ou requis et compléter la section d'identification."
   Cancel = True
   Else
   Cancel = False

    If MsgBox("Etes-vous certain(e) de vouloir quitter ?", vbYesNo, "Demande de confirmation") = vbYes Then

exit sub
    End If
  End If
  End Sub

ou vbOKOnly à la place de vbYesNo

ou vbOKCancel

crdlt,

André