Discussion :

[Nako_lito]

Bonjour a tous,
j'ai développer une petite application qui découpe un fichier avec mot de passe en plusieur autre.J'aurais voulu savoir si il etait possible d'appliquer le meme mdp sur ces nouveaux fichiers par macro.

J'ai procédé comme ca:
(j'ai un premier fichier excel d'ouvert, et j'en créé un second pour y copier les valeur et supprimer ce dont je n'ai pas besoin)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim lePass As String
lePass = ActiveWorkbook.Password
Sheets.Copy
ActiveWorkbook.Password = lePass
ActiveWorkbook.WritePassword = lePass
ActiveWorkbook.SaveAs ".\"& nomManager & ".xls"
ActiveWorkbook.Close

J'ai fais du pas a pas et quand je regarde la valeur du mot de passe de ActiveWorkBook, ca me retourne: ******

Quelqu'un connait une solution ?

[Nako_lito]

enfait, j'ai trouvé la solution a mon pb. Il n'est pas solvable. Il n'existe pas de moyen de contourner les mdp a l'ouverture d'un fichier excel (sauf par crack).