Interdire l'ecrasement du fichier original !

[Creepy]

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

 

[patrice]

Bonjour à tous,
Creepy, essai de mettre ce code dans le fichier que tu ne veux pas etre modifié :
Sub Auto_close()
ActiveWindow.Close (False)
End Sub
A+