Discussion :

[DJOUFOU]

Bonjour a tous,
S'il vous plait, est ce à dire que la gestion des utilisateurs a complétement disparut de ACCESS?
Je souhaite que dans mon application, chaque utilisateur se connecte avec certains droits alors ne sachant pas comment m'y prendre, j'ai fouiller internet en entier mais rien de claire. J'ai même trouver un document sur ce forum mais qui date de 1999 donc dépassé.
Quelqu'un aurait il une solution ? je suis persuadé qu'il en existe une.
J'ai 3 type d’utilisateur: Éditeur (Peuvent créer, modifier et supprimer des enregistrements, ne peuvent pas consulter un état); Confirmateur (Peuvent consulter et imprimer un état, ne peuvent pas modifier, créer ou supprimer des enregistrements) et enfin ADMIN (qui a tous les droits).
Merci d'avance

[Zekraoui_Jakani]

J'ai développé récemment une application avec des droits d'accès, mais je ne me suis pas trop cassé la tête avec la sécurité, car j'ai créé une table avec tous les utilisateurs où j'ai inclus un code. Ce code renvoie à un niveau d'autorisation définissant les actions possibles par utilisateur.
Exemple: code 1 pour admin peut tout faire, code 2 pour le gérant qui peut modifier, ajouter, supprimer, engager du personnel, mais pas vendre le magasin par exemple, code 3 pour un employé qui peut uniquement consulter ou imprimer.

Derrière chaque code, il y a un évènement qui permet ou bloque l'action en fonction du niveau d'autorisation. Il va de soi que le code VBA est protégé par mot de passe (connu par l'admin uniquement), ainsi que les objets. Une 2è table définit les autorisations et est vidée à chaque initialisation; elle ne contient qu'une seule ligne concernant l'utilisateur en cours (ainsi, il ne pourra pas modifier les codes dont il (elle) ignore la signification.

Chaque utilisateur a un mot de passe qui lui est propre, et qui ne peut être modifié que par l'admin.

PS: si l'application est transformée en mde, c'est encore mieux !

Il y a certainement d'autres solutions incorporées dans Access, mais je n'ai pas cherché étant donné que mon application fonctionne "problem-free" !

[DJOUFOU]

ok. Pourrais je avoir ce code pour le réadapter a mon application.
et comment tu fais pour ne pas que l'utilisateur ai accès a la table utilisateur pour ne pas pouvoir modifier le contenu.

[ibrakola]

Bonjour DJOUFOU,
essaye de lire ce document de il t'apportera beaucoup de choses.
http://loufab.developpez.com/tutoriels/access/securite/

[DJOUFOU]

Bonjour

Bonjour DJOUFOU,
essaye de lire ce document de il t'apportera beaucoup de choses.
http://loufab.developpez.com/tutoriels/access/securite/

j'avais déjà lu ce document. Mais il date de 1999 et a été mis a jour en 2009, donc vous voyez qu'il ne peut m'aider sous access 2010.

Merci

[Zekraoui_Jakani]

Voici un exemple de code que j'utilise:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Command_ConfirmerAccès_Click()
    reponse = confirmerAccès(Me.TxtPword)
    If reponse = "" Then Exit Sub
    DoCmd.Close , ""
    DoCmd.OpenForm "000_frmDashboard"
End Sub
 
Function confirmerAccès(pwd) As String
    Pass = "'" & UCase(Trim(pwd)) & "'"
 
    Select Case Pass
        Case Is = "'" & UCase(Trim(Me.pWord)) & "'"
            Me.Refresh
            MyFilter = "[ID] = " & "'" & Me.ListEmployees & "'"
            Me.Filter = MyFilter
            Me.FilterOn = True
            MsgBox "Bonjour " & Me.Employé & " !", vbOKOnly, "Message d'accueil"
            confirmerAccès = Pass
            GoTo MAJautorisations
        Case Else
            monMsg = "Le mot de passe n'est pas correct !"
            monMsg = monMsg & vbLf & vbLf & "Veuillez réessayer ..."
            MsgBox monMsg, vbOKOnly, "Mot de passe incorrect !"
            Me.TxtPword = Null
            confirmerAccès = ""
    End Select
 
 
MAJautorisations_exit:
Exit Function
 
MAJautorisations:
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE [065_TblAutorisations].* FROM 065_TblAutorisations;"
    DoCmd.SetWarnings True
 
    Dim rs As Recordset
    Set rs = CurrentDb().OpenRecordset("065_TblAutorisations")
    With rs
        .AddNew
        !EmpID = Me.ID
        !Employee = Me.Employé
        .Update
        .Close
    End With
    Set rs = Nothing
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Qry005_UpdtAutorisations"
    DoCmd.SetWarnings True
    GoTo MAJautorisations_exit
 
End Function

Pour protéger une table contre les curieux, soit vous la cachez via le menu contextuel (mais c'est moins sûr), soit vous la créez à chaque initialisation en mettant le champ "mot de passe" sous le type password. Dans les 2 cas, le code VBA doit être protégé par mot de passe solide, et inoubliable.