Deverrouillage shift pour base Access

[hipppone]

Bonjour,

J'ai verrouillé par la création d'une macro autoexec avec la fonction DesactiveShift()

Sur une base vierge j'ai créé un module ReactiverShift() sauf que j'ai oublié que ma base était protégé au démarrage avec un mot de passe "LOTUS", l'exécution du module reste bloqué sur la 4 eme ligne, je lance un SOS pour accéder à ma base avec le mot de passe. MErci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Function ReactiverShift()
 
Dim bds As DAO.Database
Dim prp As DAO.Property
 
Set bds = DBEngine.OpenDatabase("Z:\SuiviAgents.mdb")
bds.Properties("AllowBypassKey") = True
MsgBox bds.Name & " est de nouveau accessible."
Set prp = Nothing
bds.Close
Set bds = Nothing
 
End Function