[Access] Sécurisation - Désactivation de MAJ

Fermé
enigmatoile Messages postés 730 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 15 mars 2008 - 28 févr. 2007 à 11:57
enigmatoile Messages postés 730 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 15 mars 2008 - 28 févr. 2007 à 16:19
Bonjour,

Afin de sécuriser ma base Access, je souhaite désactiver le fait que l'appui sur la touche MAJ permette d'avoir la fenetre de base de données.

J'ai donc utilisé le code suivant :

Private Sub Form_Load()
' Création de la propriété 'antishift' si elle n'existe pas
' Sinon mise à FALSE
Dim Db As Database
Dim Prop As Property
Set Db = CurrentDb
On Error Resume Next
Db.Properties("allowbypasskey") = False
If Err = 3270 Then
Set Prop = Db.CreateProperty("allowbypasskey", dbBoolean, False)
Db.Properties.Append Prop
Resume Next
End If
End Sub

et celui - ci pour le désactiver pour pouvoir utiliser ma base :)

(se déclenche suite à l'entrée d'un mot de passe


Private Sub B_Passwd_AfterUpdate()
' Mise a TRUE de la propriété si mot de passe correct
Dim Db As Database
Dim Prop As Property
Set Db = CurrentDb
If B_Passwd.Value = "monmotdepasse" Then
Db.Properties("allowbypasskey") = True
MsgBox "Application déverrouillée..."
End If
End Sub

Rien ne marche...
Quand j'essaie d'exécuter ce deuxième code ilme dit "propriété non trouvée"...

Je suppose qu'il me manque des références, mais comment faire pour savoir lesquelles?

Merci à tous ceux qui pourront m'aider.

1 réponse

blux Messages postés 24878 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 25 mars 2023 3 311
28 févr. 2007 à 14:59
Salut,

ton code me dit quelque chose :-)

C'est sur quelle ligne que ça coince ?

Pour les références manquantes :

dans le code, menu outils/références et tu coches celles marquées absentes...
0
enigmatoile Messages postés 730 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 15 mars 2008 5
28 févr. 2007 à 16:19
Normal que le code te dise qqch :p

Comme tu l'auras compris j'ai retrouvé un post de Ova qui posait la question, j'ai essayé de rajouter les memes références qu'elle , ça a pas marché.

Mais j'ai trouvé un code très proche du tien qui lui fonctionne (avec la référence DAO). Je ne comprends toujours pas pourquoi le tien ne fonctionnait pas : il me répondait 'propriété non trouvée' quand j'exécutais la deuxième partie, j'ai pensé que c'était une référence manquante mais paut etre pas, je sais pas...

Ca explique peut être pourquoi j'au jamais trouvé de références marquées "absentes" :)

Je vais sécuriser ma base dorale de la meme manière, vu que je ne veux pas que les gens aient accès aux données (ce serait dommage d'avoir blindé la frontale et que la dorsale soit un gruyère :p).

Merci à toi en tout cas, ça m'a donné un bon point de départ (en particulier l'idée de se faire une backdoor personnelle :p)
0