Déprotéger le code VBA avec un code VBA

Version imprimable

23/04/2014, 12h39
Gado2600

Déprotéger le code VBA avec un code VBA

Bonjour,

Dans le cadre d'une mise à jour d'une base de données Access via une autre base de données Access (mise à jour de champs de tables, formulaires etc...), il me faut ouvrir la base de données cible et supprimer des objets.
Le problème est la protection du code VBA qui m'en empêche.
Je pourrais très bien supprimer ce code à la main pour apporter les modifications mais sur du long terme, je souhaiterai le faire directement en VBA.

Question :
Est-il possible de désactiver la protection du code VBA en VBA d'une base de données Access ? Si oui, comment ?

Merci d'avance,

Bon après récupération du code de l'un de mes collègues, prévu pour Excel j'obtiens ce genre de résultat:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub Essai()
    Dim acsAppNew As Access.Application
    Dim acsProject As Object
    Dim strMDB As String
    Dim oFD As FileDialog
 
    DoCmd.SetWarnings False
 
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    oFD.AllowMultiSelect = False
    If oFD.Show() Then
        strMDB = oFD.SelectedItems(1)
    Else
        Exit Sub
    End If
 
 
    Set acsAppNew = New Access.Application
    With acsAppNew
        .OpenCurrentDatabase strMDB
 
        Set acsProject = .Application.VBE.ActiveVBProject
        If acsProject.Protection <> 1 Then
        Else
' Plante ici
            Set Application.VBE.ActiveVBProject = acsProject
            SendKeys "MotDePasse" & "~~"
            Application.VBE.CommandBars(1).FindControl(id:=2578, recursive:=True).Execute
        End If
    End With
 
    Set acsAppNew = Nothing
 
    DoCmd.SetWarnings True
End Sub

Le problème est que le code plante complète sur la ligne indiquée. Si quelqu'un a une solution pour me sortir de ce problème, je suis preneur ;)

Merci d'avance !

23/04/2014, 19h46
Christophe

vba password devrait solutionner ton problème.
24/04/2014, 08h57
Gado2600

Bonjour,
Merci pour la réponse mais peux-tu la détailler stp ?
Je ne vois pas de fonction password...
Merci d'avance,