Discussion :

[Aeltith]

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

[Didier Gonard]

Bonjour,

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

Cette méthode ouvre un classeur.

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

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,

[Aeltith]

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 :

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

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 !!

[Didier Gonard]

Bonjour,

essayes ainsi :

Code :

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

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 :

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

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

Celle-ci plante :

Code :

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

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

Celle-ci est OK :

Code :

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

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

[JackOuYA]

Bonjour,

tiens de mémoire :

Code :

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

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

[Aeltith]

Ok merci pour les infos Ormonth !

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