Lier des tables access dans un fichier protégé

Fermé
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 - 7 mars 2018 à 21:35
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 - 10 mars 2018 à 00:00
Salut tout le monde,

J'ai un fichier access "A" protégé par un mot de passe et qui contient des tables

Je veux lier les tables contenue dans ce fichier dans un autre fichier access "B" par code VBA et que lorsque la liaison des tables soit faite le mot de passe ne reste pas en mémoire et ce a fin d'interdire l'établissement d'une autre liaison ou d'importer les tables liée dans le fichier "B" depuis un autre fichier access "C". car un fois la liaison faite dans le fichier "B" il y a possibilité de lier les table du fichier "A" ou de les importer dans le fichier "C" sans connaitre le mot de passe.

merci pour les réponces.
A voir également:

1 réponse

yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 Ambassadeur 1 557
Modifié le 7 mars 2018 à 22:13
bonsoir, je pense alors que tu dois protéger B par un mot de passe.
0
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 29
Modifié le 7 mars 2018 à 22:14
protection par mot de passe simple (Chiffrage du fichier par mot de passe).
0
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 29
7 mars 2018 à 22:17
et le code VBA que j'utilise est le suivant :

Dim tbl As TableDef
Dim strMotPasse As String
Dim strCheminBd As String
Dim strNomTable As String
Dim strConnect As String
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
'Définit mot passe, nom table, chemin base de données
strMotPasse = "motdepasse"
strCheminBd = CurrentProject.Path & "\B.accdb"
strNomTable = "tbl"
'Instancie l'objet Database
Set oDb = CurrentDb
'Définit la chaine de connexion permettant la liaison
strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=" & strCheminBd
'Crée la nouvelle table
Set oTbl = oDb.CreateTableDef(strNomTable)
With oTbl
.Connect = strConnect
.SourceTableName = strNomTable

End With

'Ajoute la table à la base de données
oDb.TableDefs.Append oTbl: oDb.TableDefs.Refresh
If blnAccQuit Then appACC.Quit acQuitSaveAll
Set appACC = Nothing
0
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 29
7 mars 2018 à 22:27
Ce n'est pas ce que je cherche, car je ne suis pas le seul à utiliser le fichier. si je déploie le fichier je dois donner le mot de passe de ce dernier, chose que je veux éviter.
0
medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019 29
7 mars 2018 à 22:28
Ce n'est pas ce que je cherche, car je ne suis pas le seul à utiliser le fichier. si je déploie le fichier je dois donner le mot de passe de ce dernier, chose que je veux éviter !
0
yg_be Messages postés 23400 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 décembre 2024 1 557 > medbo Messages postés 551 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 24 mars 2019
8 mars 2018 à 00:27
tu as plusieurs tables dans A, et tu souhaites qu'il ne soit possible que d'accéder une partie de ces tables en passant par B? merci de plus détailler ton contexte.
0