Discussion :

[samchich]

Bonjour a tous
depuis un userform dans excel je me connecte a une base access avec le bout de code qui fonctionne tres bien
je voudrai proteger mon fichier access avec un mot de passe "PAPA"
donc comment adapter ce code pour que excel se connecte
si vous aviez une solution merci

Cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Connecte_base_Access()
    Dim rs As Object
    Dim Nom_Base, Chemin_Base, SQL      ', connstring
 
    Set conn = CreateObject("ADODB.Connection")
    Nom_Base = "les-dons-aux association-table-access.accdb"
    Chemin_Base = ThisWorkbook.Path & "\" & Nom_Base
    'chaine de connexion
    connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
    'Connexion a la base
    conn.Open connstring
End Sub

[sogedic]

Bonjour

Tu peux peut-être
- le demander au premier lancement de la macro
- l'enregistre dans une zone nommée sous Excel
et a chaque lancement de la macro : tester si la zone nommée est non vide alors utiliser ce mot de passe
et a l'ouverture d'Excel : réinitialiser cette zone nommée a (vide)
?

Sinon pour ouvrir Access via un mot de passe, je crois qu'il faut que la BDD lance à l'ouverture un formulaire demandant les id de connexion

[Invité]

Bonjour,
Si ça peut te donner des idées.

https://www.developpez.net/forums/d1.../#post10081007

Tu peux également utiliser un fichier config.ini