Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
If Int(FileDateTime(ThisWorkbook.Path & "\" & ThisWorkbook.Name)) = Date Then
If MsgBox("Le fichier a été modifié ce jour." & vbLf & _
"Voulez-vous poursuivre l'enregistrement ?", 4) = 7 Then
Cancel = True 'annule l'enregistrement
'suite éventuelle du code
End If
End If
End Sub