Discussion :

[bertiny]

Bonjour
Avec un fichier accde on peut modifier les tables, les requêtes et les macros. Mon problème c'est que je ne voudrais pas que l'utilisateur modifie quoique ce soit. Je me suis dit que je dois chiffrer la base avec le mot de passe, mais alors pour qu'il puisse utiliser l'application il lui faut ce mot de passe et par conséquent il pourra faire des modifications. NB: La base n'est pas fractionnée.
J'ai donc pensé à vérrouiller le volet de navigation. Alors j'ai essayé avec la macro pour vérrouiller celui-ci avec le fameux code qui désactive la touche F11.
Le problème c'est qu'en le faisant l'utilisateur peut accéder au menu fichier et réactiver le volet.
Alors comment puis-je résoudre ce problème?

[titi95]

Bonjour

Une méthode avec 2 bases
1 - Protéger ta base accde par un mot de passe : complètement hermétique, on ne peut y accéder qu'avec le mot de passe, mais non diffusé.
2 - créer une base de démarrage en accde qui ne contient qu'une macro Autoexec et une Function d'ouverture de l'autre base avec le mot de passe dans le code. (En accde le mot de passe n'est pas lisible)

Titi95

[bertiny]

Çà me plait bien cette méthode. Elle semble vraiment répondre à ce que je veux faire.
A quoi ressemble cette fonction d'ouverture avec mot clé passe?

[titi95]

Tu crées une base qui ne sert qu'à l'ouverture de la principale,
avec une macro Autoexec qui ouvre la Function suivante que tu mets dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function BaseOuverture()
    Dim objAccess As Access.Application
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase "CheminCompletBaseàOuvrir", False, "MotDePasseDeLaBaseàOuvrir"
 
    Dim Début, Fin As Long
    Début = Timer
    Fin = 5 'secondes
    Do While Timer < Début + Fin
        DoEvents 'pour rendre la main au systeme
    Loop
 
    Application.Quit
End Function

[bertiny]

Comment insérer un chemin relatif dans ce cas là? Les deux fichier étant dans le même dossier.
J'ai essayé ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function BaseOuverture()
    Dim objAccess As Access.Application
    Dim monchemin As String
    monchemin = CurrentProject.Path & "\mon_fichier.accde"
    Set objAccess = CreateObject("Access.Application")
    objAccess.OpenCurrentDatabase monchrmin, False, "blablabla"
 
    Dim Début, Fin As Long
    Début = Timer
    Fin = 5 'secondes
    Do While Timer < Début + Fin
        DoEvents 'pour rendre la main au systeme
    Loop
 
    Application.Quit
End Function

Mais erreur 7866

[titi95]

Bonjour

Erreur 7688 : base inexistante ou déjà ouverte...
Base (à ouvrir) bien fermée ?

Fais un nouvel essai après avoir corrigé ton code : monchemin au lieu de monchrmin dans

Code :

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

objAccess.OpenCurrentDatabase monchemin, False, "blablabla"

[bertiny]

C'est ok. C'était vraiment une petite erreur de saisie qui passait inaperçue. C'est exactement ce que je voulais.
Grand merci pour ce coup de pouce.