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
 

Bonjour
 
La touche F1 ne sert pas qu'a faire joli...

 
 
Tu crées ton mot de passe en amont, tu le mets dans une variable TonMdP et ca roule...: