Macro Sauvegarde avec mot de passe

Week End

Nouveau membre
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

 

zeb

Modérateur
Salut,

Va lire le règlement, et modifie ton message pour rendre ton message conforme.

Ben sinon, une solution peut être la suivante :
■ Enregistrer le classeur comme tu le fais,
■ Rouvrir ce nouveau classeur,
■ Mettre un mot de passe et fermer.
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 079
Messages
6 716 710
Membres
1 586 247
Dernier membre
MrAzgarIII
Partager cette page
Haut