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

**Gado2600** · 23/04/2014, 12h39

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,

**Gado2600** · 23/04/2014, 18h00

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 :

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
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