Discussion :

[torNAdE]

salut, j ai une base de donnée securisée par un mot de passe.
dans le macro autoexec j ai ajouter l'action ExecuterCode dont la focntion est la suivante

Code :

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

1
2
3
4
5
6
 
Dim db as Dao.DataBase
 
Set db = DBEngine.OpenDatabase("C:\MaBase.mdb", False, False, ";pwd=password")
 
db.Close

tout ça pour que la fenetre de mot de passe ne soit plus affichée.
mais le prob c'est que lors de l'ouverture de la base cette fenetre est affichée.

que dois je faire?
Merci

[issam16]

parceque quand tu fais :

Code :

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

1
2
3
 
 
db.close

tu referme la base

[torNAdE]

j en ai meme enlever cette db.close mais sans resultat.

ce que je veux c est que la fenetre de mot de passe n'apparait pas quand j'ouvre la base

[issam16]

re salut,
je crois que la marco AUTOEXEC s'execute au demarage de la base c pour ça que ça marche pas donc il faut executer le code avant le demarrage de la base malheureseument je sais pas comment, donc on va attendre l'aide d'un expert

[torNAdE]

je reformule mon probleme:
j ai une base de donnée securisée avec un mot de passe je veux que lors de l'ouverture de cette base la fenetre de "donner le mot de passe" ne s'afiche pas c'est a dire que je ne veux pas etre amener a taper le mot de passe.

est ce que qqn sait comment puis je le faire.

[pgz]

Bonjour,

Dans

Set db = DBEngine.OpenDatabase("C:\MaBase.mdb", False, False, ";pwd=password")

password est le mot de passe, où le nom d'une variable contenant le mot de passe?

Dans le premier cas

Code :

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

Set db = DBEngine.OpenDatabase("C:\MaBase.mdb", False, False, ";pwd=""password"""")

Dans le second

Code :

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

Set db = DBEngine.OpenDatabase("C:\MaBase.mdb", False, False, ";pwd=""" & password & """")

Bon courage,

pgz

[torNAdE]

le mot de passe n'est pas une variable il esr = à motdepasse.

donc j ai essayer la 1ere ligne mais bon ca ne marchait pas.

[pgz]

Tu peux montrer le code que tu as essayé?

pgz

[torNAdE]

Code :

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

1
2
3
4
5
 
Function pass()
Dim dbs As DAO.Database
Set dbs = DBEngine.OpenDatabase("C:\Step3.mdb", False, False, ";pwd=""alpha""")
End Function

cette fonction je l'applle a partir du macro Autoexec;
pour chaque ouverture de la base la fenetre de saisie de mot de passe apparait.
c'est ce que je peux masqer.

[LostIN]

ton mot de passe est il géré par le mdw?

si c le cas, ca marche quand tu lances access depuis un raccourci
en passant au raccourci l'utilisateur et le mot de passe.

Aucune idée si ca marche depuis une macro.
Comme ca, je dirais non.

[torNAdE]

et comment creer un mdw?

[pgz]

J'avais compris que tu essayé d'ouvrir depuis une autre base. Si ce code est dans la base à ouvrir, ça m'étonnerait que ça marche.

pgz

[torNAdE]

J'avais compris que tu essayé d'ouvrir depuis une autre base. Si ce code est dans la base à ouvrir, ça m'étonnerait que ça marche.

ce code est dans ma base Step3.mdb et j'essaie d'ouvrir cette base non pas a partir d'une autre base. je clique sur cette base.

[tangueros]

perso je pense que tant que ta base sera "sécurisée" via un .mdw elle affichera systematiquement la fenetre de mot de passe, et ce meme si tu n'en specifie pas pour tes users.

[torNAdE]

donc la question cest est ce que je peut me passer de la fenetre de mot de passe ou non lors de l'ouverture de ma base?

[torNAdE]

perso je pense que tant que ta base sera "sécurisée" via un .mdw elle affichera systematiquement la fenetre de mot de passe, et ce meme si tu n'en specifie pas pour tes users.

j en ai pas de mdw.

[LostIN]

Je comprends rien.
Mets ta (tes) base en pièce jointe sans données (juste celles utile).

[pgz]

donc la question cest est ce que je peut me passer de la fenetre de mot de passe ou non lors de l'ouverture de ma base?

il suffit de pas protéger la base.

pgz

[torNAdE]

voila c est une base vide dont le mot de passe est alpha
j ai essayer de crrer un macro autoexec dont il ya executer code de la focntion suivante:
Function pass()
Dim dbs As DAO.Database
Set dbs = DBEngine.OpenDatabase("C:\Step.mdb", False, False, ";pwd=alpha")
End Function

mais pas de resultat.

[Nohant]

Salut,

Pourquoi protéger par mot de passe une base si tu ne veux pas que les utilisateurs aient à rentrer un mot de passe ?

autant le virer la non-sécurité sera la même,

autrement en créant un raccourci et en mettant comme paramétre de la cible le mot de passe ? à vérifier