[VBA] - sauver en Read-Only

[chewi]

Bonjour à tous,

Je voudrais sauver mon classeur à 2 endroits différents et à un des deux endroits qui est en partage, je voudrais que le classeur se sauve en Read-Only.

Je suis bloqué car lorsque je met "read-only dans mon code, je ne peux plus faire de modifications. Or je voudrais récupérer lecture-écriture à la fin du code.

Sub sauver()
'ctrl + d

ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\Desktop\fichier essai.xls"
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
ActiveWorkbook.SaveAs "c:\Documents and Settings\Chewi\My Documents\fichier essai.xls"

End Sub

Je sollicite une fois de plus votre aide.
Je vous remercie d'avance,

Chewi