Discussion :

[Logisticien]

bonjour;

j'ai créé une base de données access, avec une formulaire qui contient Login et Mot de passe pour gérer les accès des utilisateurs en affectant des droits aux différentes utilisateurs.
j'ai protégé les code VBA par mot de passe et j'ai fragmenter la base en protégeant la copie dorsale .be par mot de passe et j'ai changer la Microsoft Access par Microsoft Access Runtime sur 90% des postes.
Aujourd'hui il me reste quelque poste dont j'ai pas la main de changer leur installer le Runtime sachant bien qu'il ont accès à la base et ils peuvent à travers le bouton shift visualiser les tables et faire des modifications directement sur la table en connectant sur la base frontale.

avez vous des aider ou bien des conseilles pour protéger les bases ?

d'avance merci.

[nico84]

Bonjour,

Si la dorsale est protégée par mot de passe, les utilisateurs ont besoin de ce mot de passe pour accéder aux données en direct. Je ne vois donc pas où est le problème ?

[Logisticien]

via la Frontale, les utilisateurs peuvent accéder directement à la dorsale !

[nico84]

Ah oui, je ne sais pas si qqn a fait un tuto là-dessus mais cette question revient assez régulièrement. Pour bien faire la frontale doit avoir 2 modes :
- un mode développeur complet avec un bouton "passage en mode utilisateur" (mode_admin à true)
- un mode "utilisateur" qui masque tous les menus access, les tables et le bouton

Seule la frontale (de préférence compilée) en mode utilisateur doit être accessible à tous !

Voici en gros à quoi ressemble le code du bouton "admin" :

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
'changement du mode d'ouverture, soit administrateur soit utilisateur
Private Sub Admin_Click()
If Not Mode_debug Then On Error GoTo err 'mode_debug est pour la version non compilée qui doit s'arrêter en cas d'erreur pour debug
100 Mode_admin = Not Mode_admin
 
105 CurrentDb.Properties("StartupShowDBWindow") = Mode_admin
106 CurrentDb.Properties("StartupShowStatusBar") = True 'NG 23.09.08 pour afficher des infos en bas de l'écran
107 CurrentDb.Properties("AllowShortcutMenus") = Mode_admin
108 CurrentDb.Properties("AllowFullMenus") = Mode_admin
109 CurrentDb.Properties("AllowBuiltinToolbars") = Mode_admin
110 CurrentDb.Properties("AllowToolbarChanges") = Mode_admin
111 CurrentDb.Properties("AllowBreakIntoCode") = Mode_admin
'112 currentdb.Properties("AllowSpecialKeys") = Mode_admin
113 CurrentDb.Properties("AllowBypassKey") = Mode_admin
114 CurrentDb.Properties("StartupForm") = "ma_fenetre_accueil"    'pour éviter qu'une suppression dans le menu démarrage puisse verrouiller la base
 
120 Application.Quit
    Exit Sub
err: Call message("Erreur " & err.Number & "/" & Erl & " dans ma_fenetre_accueil.admin : " & err.description)
End Sub

Le changement de mode ferme la frontale et elle se rouvre dans le nouveau mode. Ce code est en partie spécifique et ne fait pas tout, il y en a une partie dans la gestion des droits

Attention à toujours garder une version en "mode développeur" car sur une fausse manip ça peut être irréversible...

[Logisticien]

peux tu m'expliquer un petit peu ce code stp!