Copier et protéger un fichier par mdp

Bonjour,

A la fermeture d'un fichier (non protégé par mot de passe), je cherche à en faire une copie dans un répertoire de sauvegarde (ca ca marche) mais je veux que cette copie soit protégée par un mot de passe (sans devoir aller ouvrir cette copie pour procéder à cette protection).

Est-ce possible en une seule instruction "copier / protéger") ?

Mon code: [ dans Private Sub Workbook_BeforeClose(Cancel As Boolean) ]

Dim Cible As String

Cible = "\\Réseau2\Local\Common\2015\Archives"

Dim NOM As String

NOM = "SAUVEGARDE du_" & Format(Now, "dd-mm-yyyy" & " à " & "hh""h""mm""'""ss""''""") & " de_" & ActiveWorkbook.Name

ActiveWorkbook.SaveCopyAs Filename:=Cible & "\" & NOM '==> Ici la copie s'effectue bien vers le répertoire cible, mais elle n'est pas protégée par mdp.

==> Il faut donc maintenant protéger cette copie archivée et c'est ici que ça va pas !

Workbook ("Cible & " \ " & NOM"), "MDP"

aussi essayé, sans succès:

Workbooks ("Cible & " \ " & NOM") Protect password:="MDP"

==> Peut être est-il possible d'introduire la protection lors de l'instruction de copie ???

[b]

Merci pour votre aide

Bonsoir, zorgloub

A tester

Le mot de passe = Papy

Amicalement

Pierrot

Bonjour Pierrot,

Mon Excel n'arrive pas à ouvrir ce fichier !?

L'anti-virus me donne aussi une alerte !?

Z.

Rondidjiou, y aurait - il un peu de gueuze lambic ? voire même de la Mort subite dans ce fichier ?

Bonsoir à tous,

Je suis désolé, je ne vois pas ce que je peux faire ?

Pierrot

Bonjour Pierrot,

Bon voilà, j'ai réussi à l'ouvrir avec un autre PC.

En fait, ce qu'il faut c'est que le fichier de travail qu'on ouvre au départ ne soit PAS protégé par un mdp.

(Or, le fichier natif que tu m'envoies est déjà protégé par le mdp "Papy", ce qu'il ne faut pas)

C'est la copie (qui se fait bien ici vers D:Excel, pour autant que ce répertoire aie été créé préalablement) qui doit être protégée lors de sa copie vers D:Excel.

Il s'agit en fait de protéger l'archive.

Z.

Bonsoir,

je suis toujours désolé, ce code dépasse mes compétences

avec toutes mes excuses

A part protéger le fichier archive avant de l'enregistrer, je ne vois pas d'autres solutions

Pierrot

OK, merci Pierre,

Le poste reste ouvert ...

Bonjour,

Essaie ceci (à adapter).

Cdlt.

Public Sub DEMO()
Dim wb As Workbook
Dim sPath As String, sFilename As String, MDP As String
    Set wb = ThisWorkbook
    sPath = Application.DefaultFilePath & Application.PathSeparator
    sFilename = "SAUVEGARDE " & Format(Now, "dd-mm-yyyy hh-mm-ss") & Chr(32) & wb.Name
    MDP = "jeaneric"
    With wb
        .Protect Password:=MDP, Structure:=True, Windows:=True
        .SaveCopyAs Filename:=sPath & sFilename
        .Unprotect MDP
    End With
    Set wb = Nothing
End Sub

Bonsoir Jean-Eric

A l'exécution de la Macro, j'ai un message "erreur de compilation / erreur de syntaxe" à la commande (Excel 2007)

set wb = Thisworkbook

Je testerai demain sous un Excel plus récent... et je fais signe

Merci et @+