[Access] Sécurisation - Désactivation de MAJ
enigmatoile
Messages postés
730
Statut
Membre
-
enigmatoile Messages postés 730 Statut Membre -
enigmatoile Messages postés 730 Statut Membre -
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.
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.
A voir également:
- [Access] Sécurisation - Désactivation de MAJ
- È maj - Guide
- Maj chrome - Accueil - Applications & Logiciels
- Maj windows 10 - Accueil - Mise à jour
- Maj en min - Guide
- Acer quick access ✓ - Forum PC portable
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)