Discussion :

[charliejo]

Bonjour,
Je souhaite pouvoir modifier le verrouillage du projet par code : déverrouiller puis verrouiller...
Je m'explique....
Je suis allée dans VB, Propriétés du projet puis Protection et Verrouiller le projet pour l'affichage.
Mon code est bien bloquée...
Le problème c'est que j'ai un système dans ma base qui me permet d'importer automatiquement des nouveaux formulaires à partir d'une autre base...
Or il ne veut plus importer le formulaire car mon code est verrouillé par mot de passe.... donc je souhaiterais désactiver le verrouillage, importer le formulaire et remettre le verrouillage.... tout ça en VBA...
C'est possible?


Merci

[loufab]

Bonjour,
Via des sendkeys mais c'est pas très propre.

Code :

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

1
2
SendKeys "%{F11}", True
etc

ou plus propre avec le wizhook

Code :

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

access.WizHook.SetVbaPassword(bstrDbName As String, bstrConnect As String, bstrPasswd As String)

à toi le choix.

Cordialement,

[charliejo]

Avec les sendkeys, j'ai trouvé pour débloquer le mot de passe de la base en cours :

Code :

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

1
2
3
4
If Application.VBE.ActiveVBProject.Protection = 1 Then
        Set Application.VBE.ActiveVBProject = Application.VBE.ActiveVBProject
        SendKeys Password & "~ARP~"
End If

Mais cela ne marche pas pour une autre base

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
17
18
        Dim acApp As Access.Application
        ' Démarrer Access
        Set acApp = New Access.Application
        ' Ouvrir la base de données concernée
        acApp.OpenCurrentDatabase ("C:\BDD\bd2.mdb")
        acApp.Visible = True
        'enlever mot de passe
        'acApp.DoCmd.RunMacro "Deverouille"
 
        Set acApp.VBE.ActiveVBProject = acApp.VBE.ActiveVBProject
        SendKeys Password & "~ARP~"
 
        If acApp.VBE.ActiveVBProject.Protection = 1 Then
            MsgBox "toujours bloqué"
        End If
        ' Quitter Access
        acApp.Quit
        Set acApp = Nothing

Car à priori il envoie le send Keys dans la 1ère base et non dans la 2ème

C'est quoi WizHook, comment je l'utilise?

Merci

[loufab]

Bonjour,

C'est quoi :
Une bibliothèque de fonctions cachée.

Comment l'utiliser :
Grace à la ligne que je t'ai fourni.

Comment en voir plus :
Clic droit sur l'explorateur d'objets, afficher les membres masqués.

Cordialement,