Modification de la procédure enregistrement-fermeture

Bonjour a tous

Je souhaite créer une procédure d'enregistrement lors de la fermeture d'un fichier, en passant par un userform personnelle.

j'utilise donc la procedure Beforeclose mais je ne trouve pas comment empêcher l'affichage du message de demande d'enregistrement original.

j'ai bien utilisé le code :

ThisWorkbook.Saved = True

mais ceci précipite la fermeture du fichier


je cherche donc comment soit annuler complètement la procédure standard de la commande fermer, soit quel attendent que la mienne ce finisse

pour info mon code :

With ThisWorkbook
If Not ThisWorkbook.Saved Then
ddate = Application.WorksheetFunction.Max(Sheets("bdd").Columns(9))
dsave = Sheets("formulaire").Range("B1").Value
If ddate - dsave >= 7 Then
Sauvegarde.MSG.Caption = "Attention votre derniere sauvegarde date du " & Sheets("formulaire").Range("b1").Value
Sauvegarde.Show vbModeless
Else
ActiveWorkbook.Save
End If
If Workbooks.Count = 1 Then Application.Quit Else 'ThisWorkbook.Close
End If
End With

Cliquez pour agrandir...

Je demande pas que l'on me crache la réponse mais si vous l'avez je suis preneur^^ sinon une piste vers ou chercher m'ira tres bien

Merci d'avance et bonne semaine à vous