mot de passe

Bonjour

Voila je travaille sur un fichier Excel qui est sur un server en consultation libre à partir d'un autre classeur Excel.

Je ne souhaite pas que d'autres personnes puisse intérroger ce premier fichier et donc j'aimerai le protéger en écriture et en lecture par un mot de passe.

Comment en VBA puis je dire à ma macro que si elle doit ouvrir ce premier classeur elle doit utiliser tel mot de passe ??

En gros:

Fichier Excel 1 mot de passe = "Password"
Fichier Excel 2 avec une macro qui interroge le fichier Excel 1 et qui peut écrire dessus.

Merci

Bonjour,

vois du côté de l'aide vba à Open, méthode...
extraits :

Citation:

---

Cette méthode ouvre un classeur.

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

---

Citation:

---

Password Argument de type Variant facultatif. Chaîne qui contient le mot de passe requis pour ouvrir un classeur protégé. Si vous ne spécifiez pas cet argument et si le classeur requiert un mot de passe, l'utilisateur est invité à entrer ce mot de passe.

---

cordialement,

J'ai essayé ça mais ça ne marche pas...

Est ce que quelqu'un à un exemple ??

J'ai essayé de mettre à la suite de mon code:

Code:

---

Workbooks.Open ("d:\Documents and Settings\Bureau\Plannings\personnelsadm\personnel.xls", password:="motdepasse" )

---

Et le code VBA se met en rouge et ça ne marche donc pas !!

Bonjour,

essayes ainsi :

Code:

---

Workbooks.Open "d:\Documents and Settings\Bureau\Plannings\personnelsadm\personnel.xls", password:="motdepasse"

---

Bizarre que tu n'aies pas eu un message du genre "erreur de compilation" , dans ce cas indique le nous ça peut nous aider..
Sinon, vois dans vba, outils, options, Editeur, coche vérification auto de la syntaxe, ça peut t'aider ;)


Rajout : pour que tu ne perdes pas le nord avec la suite ;)

Ton pb vient des parenthèses superflues !

une instruction de genre qui suit est OK :

Code:

---

Workbooks.Open "C:\Tutoriel.xls", , , , "toto"

---

Celle-ci plante :

Code:

---

Workbooks.Open "C:\Tutoriel.xls", "toto"

---

Celle-ci est OK :

Code:

---

Workbooks.Open Filename:="E:\+ Pass\Samedi a détruire.xls", Password:="toto"

---

Reagardes la syntaxe de la méthode open dans l'aide, quand tu passe des arguments "nommés", il faut :
soit les nommer, exemple 3 ici
soit qu'ils soient au "bon endroit "dans la liste exemple 1 ici
soit les 2 en mixte , ton cas sans les parenthèses superflues ;)

En fait, pour le mixte, à partir du moment où un argument est nommé, les suivants doivent l'être aussi...

cordialement,

Didier

Bonjour,

tiens de mémoire :

Code:

---

Workbooks.Open FileName:="d:\Documents and Settings\Bureau\Plannings\personnelsadm\personnel.xls", password:="motdepasse"

---

Ok merci pour les infos Ormonth !

J'ai essayé la solution de Jackouya et ça marche très bien merci !!!