SaveAs = Save

Bonsoir,

J'ai besoin que lorsqu'on veut utiliser SaveAs,
en cliquant sous >> Fichier >> Enregistrer sous

qu'il n'y a pas de boite de dialogue qui s'ouvre, mais que le fichier est simplement enregistré.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Sauvegarde non autorisée ! Vous devez utiliser la commande : Enregistrer..."
'Cancel = True
Application.EnableEvents = False
If Application.ThisWorkbook.SaveAsUI Then ThisWorkbook.Saved = True
Application.EnableEvents = True
Close
End Sub

Mais cela ne fonctionne pas,

Comment modifier le vba code ?, afin que SaveAs = Save