eu en fait je viens de tester mais ça marche pas vraiment.....
pourtant c ce qui est écris dans l'aide
Cet événement se produit avant l'enregistrement du classeur.
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
SaveAsUi Cet argument a la valeur True si la boîte de dialogue Enregistrer sous doit être affichée.
Cancel Cet argument a la valeur False lorsque l'événement se produit. Si la procédure de l'événement lui affecte la valeur True, le classeur n'est pas enregistré à la fin de la procédure.
Exemple
Cet exemple montre comment inviter l'utilisateur à répondre par oui ou par non à la question de l'enregistrement du classeur.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub