Mot de passe et duplication

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:

---

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 ?

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).