Interdire l'ecrasement du fichier original !

Bonjour à tous,

J'ai une procedure qui fait appel à la boite de dialogue :

Application.GetSaveAsFilename

Cependant je voudrais interdire l'ecriture et le remplacement de mon fichier initial.

Comment faire ? De plus je voudrais eviter qu'apparaisse le nom du fichier original dans la dialogue box enregistrer sous !!

Merci de vos reponse

j'avais fait ca mais cela ne marche pas !

--------------------------------------------------------------------------------
Application.GetSaveAsFilename
ActiveWorkbook.SaveAs
If ActiveWorkbook.SaveAsFilename = "Mapping de Profil.xls" Then
MsgBox "Operation interdite, vous allez écraser la maquette !!!", vbOKOnly, "Attention ..."
Exit Sub
End If

End Sub
-------------------------------------------------------------------------------

Merci d'avance

Creepy