Macro Sauvegarde avec mot de passe

Bonjour à toutes et à tous,

Je viens vers vous en espérant trouver solution à mon blocage. En fait, j'ai un modèle de formulaire Excel 2003, qui une fois rempli est sauvardé sous G:\ sous un format défini ci après. Ca c'est ok.

Public Sub CommandButton1_Click()

Dim nom As String

nom = Range("C14") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ActiveWorkbook.Name

ActiveWorkbook.SaveCopyAs Filename:="G:\Doc\Archives\" & Range("C14") & "_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & "_" & ActiveWorkbook.Name

rep = MsgBox("La fiche est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

End Sub

Seulement,je suis bloqué sur une idée (qui peut être complexe). En fait, je veux que lors de l'exécution du code suivant, que la copie sauvegarde (le formulaire copié et non le formulaire source) se fasse avec un mot de passe de protection.

L'idée étant de demander:

si Cellule ("C3")= "DD" que le mot de password soit "DD2010"

si cellule ("C3")="AA" que le password soit "AA2010"

Au final le mot de passe doit être fonction de la valeur contenu dans la cellule ("C3").

Voilà, j'espères m'exprimer clairement, en espérant obtenir de l'aide sur ce probléme.

toutes les idées sont les bienvenues.

Merci

Bonsoir,

Dim Mdp$
    Mdp = Range("c3") & Year(Date)
    ActiveWorkbook.Protect Password:=Mdp

tu place ces ligne dans ta macro au bon endroit

Amicalement

Claude