Macro pour sauvegarder un classeur avec protections diverses

[Chris57]

Bonjour à tous,

à partir d'un fichier excel nommé "Générateur de Gammes" je sauvegarde des éléments dans de nouveaux classeurs créés par macro. Ensuite ces nouveau classeurs sont immédiatement sauvegardés :

' Copie de la gamme dans un nouveau classeur
    Sheets("Gamme A4").Cells.Copy
    Workbooks.Add    
    ActiveSheet.Paste
    Application.CutCopyMode = False 

[.....]

' Sauvegarde du nouveau classeur dans le dossier spécifié 
            NOMfichier = DOSSIERdeSAUVEGARDE.Text & "\" & NOMdeSAUVEGARDE.Text
            ActiveWorkbook.SaveAs Filename:=NOMfichier, FileFormat:=51

Mais il faudrait que ces classeurs soient protégés :
- l'utilisateur doit pouvoir les ouvrir pour les lire
- il doit avoir la possibilité d'en copier les éléments pour les coller dans un autre classeur
- MAis en aucun cas il ne doit pouvoir supprimer des éléments ou modifier le classeur. Une fois enregistré par la macro ci dessus le classeur doit être définitivement figé.
- Dernier point moins évident, il faudrait que ces classeurs soient impossible à supprimer, mais ça je crois que c'est impossible...


J'ai besoins de vos avis pour modifier ma macro et obtenir ces résultats.

 

[Pierrot93]

Re : Macro pour sauvegarder un classeur avec protections diverses

Bonjour,

regarde peut être ceci, enregistre le classeur avec un mot de passe qui permet de l'ouvrir pour modification, "ouvrir en lecture seule" est forcé...

ThisWorkbook.SaveAs "NomClasseur", , , "toto", True

A tester si c'est cela que tu cherches...

bonne journée
@+