Bonjour
Tu peux essayer ce code pour obliger l'utilisateur à passer par le enregistrer sous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI <> True Then Cancel = True
End Sub
Par contre si il enregistre sous le même nom cela ecrasera tout de même