Problème de version ?

Le code en dessous me permet de désactiver la touche "SHIFT" pour
l'ouverture d'une bd.

Il fonctionne dans mes applications Access 97 que j'ai converti en version
2000. Mais :

Si je démarre une nouvelle application Access 2000 et que j'importe le
module qui contient ce code ainsi que la macro Autokeys qui exécute le code
pour la fonction PROTECT et DEPROTECT j'ai un message d'erreur au niveau de
la compilation.

J'ai vérifié mes références et coché toutes celles qui correspondent aux
fichiers qui fonctionnent et ça ne fonctionne pas plus.

Avez-vous des suggestions ?

Merci !

___________________________________________________________
Option Compare Database
Option Explicit
Dim pwd As String

Public Function InhiberBypass(bValeur As Boolean)
' Crée et/ou règle la propriété AllowBypassKey de l'application
'bValeur sera passé par la macro AutoKey d'appel (False ou True)
Dim prpAllow As Property
On Error GoTo InhiberByPassErreur

CurrentDb().Properties("AllowBypassKey") = bValeur

InhiberByPassExit:
Exit Function
InhiberByPassErreur:
' Contrôle si erreur "Propriété pas trouvée"
If Err.Number = 3270 Then
Set prpAllow = CurrentDb().CreateProperty("AllowBypassKey", dbBoolean,
bValeur)
CurrentDb().Properties.Append prpAllow
End If
Resume InhiberByPassExit
End Function

Public Function deprotect()
pwd = "1234"
Dim a As String
a = InputBox("Mot de passe : ")
If a = pwd Then
InhiberBypass (1)
MsgBox "Relancer l'application, la touche shift est maintenant active"
Else
MsgBox "Erreur mot de passe"
End If

End Function
Public Function protect()
InhiberBypass (0)
MsgBox "Relancer l'application, la touche shift est désactivée"
End Function