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
