Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fich As Workbook
Cancel = True
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each fich In Workbooks
fich.Save
Next fich
Application.EnableEvents = True
End Sub