Discussion :

[star]

J'utilise un formulaire pour présenter le menu de mon application.
J'aimerai que mes éléments de menu puisse être cliquables suivant le profile de l'utilisateur connecté.

- S'il s'agit de l'utilisateur "Administrateur" (admin), il a droit de cliquer sur tous les éléments de menu
- Si l'utilisateur fait parti du groupe "Chefs de service", il a accès à certains éléments mais pas à d'autres
- Autrement, il aura accès qu'à certains éléments et seulement à ceux-là

Ma base est au format mdb et j'utilise le système de contrôle d'accès classique d'ACCESS.

J'ai parcouru tous les tutoriels du site mais n'ai pu en trouver un qui aborde le sujet.

Je vous saurais reconnaissant de bien vouloir m'aide à mettre en place cette fonctionnalité en m'indiquant quelques pistes à suivre...

Je vous en remercie d'avance
.

[Invité]

Bonjour

Dans le cas de menus, voilà une solution que j'ai utilisé dans une vieille application.

Il y avait un formulaire de connexion, et en fonction du résultat, je gérais les menus dynamiquement, ce qui me permettait d'afficher ce que je voulais.

Ce qui par la suite m'a amené à écrire ce tuto : Personnaliser vos barres de commandes dans Access

Philippe

[star]

En fait, il ne s'agit pas d'un menu dans le sens littéral du terme, mais de boutons disposés dans un formulaire...
J'utilise ACCESS 2007
Sinon, félicitation pour le tuto superbement fait !
.

[jimbolion]

Bonjour,

As tu essayé les propriétés visibles et activé de tes boutons !

Je ne sais pas dans ton application à quelle moment s'identifie l'utilisateur mais tu peux véhiculer à l'aide d'une variable globale le nom du user et ainsi masquer (ou désactivé) à l'ouverture d'un formulaire les boutons suivant les privilèges que tu auras adressé à chacun des utilisateurs !

A bientot

[star]

masquer (ou désactivé) à l'ouverture d'un formulaire les boutons suivant les privilèges que tu auras adressé à chacun des utilisateurs

C'est exactement ce que je voudrais mettre en place.
Mais je ne sais pas comment procéder pour obtenir la liste des groupes auxquels l'utilisateurs appartient (dans le sens des groupes utilisateurs ACCESS).
Y-aurait-il une collection particulière pour cela dans le modèle des objets ACCESS ?
Merci encore de vos conseils
.

[jimbolion]

Star bonsoir,

A ma connaissance non mais j'ai le droit de mon tromper !

J'ai eu à créer une application Access, j'avais moi même gérer des tables utilisateurs et groupes ainsi qu'une table avec les privilèges pour chacun. J'avais ainsi pu contrôler les accès aux objets, aux fonctions, aux champs des tables ainsi qu'aux contrôles que je souhaitais mettre en place !
Cela permet en outre de gérer la sécurité comme je l'entendais !

A bientot

[star]

j'ai le droit de mon tromper !

Tout à fait !
Cela m'arrive aussi

A ma connaissance non

Si tu as raison, je trouve cela vraiment dommage de ne pouvoir se reposer sur le système de sécurité d'ACCESS et devoir réinventer la roue
Je vais faire des recherches de mon côté, mais si vous du vôtre avait une piste, je suis preneur...
De nouveau merci
.

[jimbolion]

Star,

Je crains que les limites en privilèges ne s'adressent uniquement qu'aux objets !

Si c'est ton cas alors je suis d'accord avec toi il faut creuser !

Je fais des recherches de mon côté également !

@ bientot

[star]

En fait, il me faut juste savoir si l'utilisateur courant fait parti du groupe "Chefs de service" que j'aurais créer préalablement avec l'outil d'administration "Gestion des utilisateurs et des groupes" d'ACCESS
Connaître quels sont les droits sur les objets est secondaire pour ce que je souhaite faire...
.

[jimbolion]

Je comprends mieux maintenant !

Je cherche de mon côté !

@++

[Invité]

Bonjour

Si tu as utilisée la sécurité intégrée à Access, tu devrais lire le tuto de Loufab et cette partie : http://loufab.developpez.com/tutorie...ecurite/#LXIII

Philippe

[star]

Super merci
Je vais m'en inspirer et reviendrai vous présenter ma solution finale
Si j'y arrive bien sûr

.

[jimbolion]

Magnifique tuto clair et bien rédigé !

Cela nécessite d'avoir un Mdw donc basé sur les anciens formats Mdb !
Qu'en est t'il des formats de compatibilité 2007 ? Je ne suis pas sûr qu'on puisse utiliser cette technique !

Star fais moi un retour si tu avances là dessus, je suis preneur...

En tout cas un grand Merci...

[star]

Chose promise chose due
Sans commentaire de ma part

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
53
54
55
56
' // Procédure Form_Load
' // ===================
Private Sub Form_Load()
 
On Error GoTo ErrorHandler
 
    ' Chargement du nom de l'utilisateur
    Me.TxtUtilisateur = CurrentUser
    Me.TxtUtilisateur.Enabled = False
 
    If LCase(Me.TxtUtilisateur) = "admin" Then
        ' Debug.Print "Is user [admin]"
        Me.BtOuvreFormEcranComptes.Enabled = True
        Me.EtiqOuvreFormEcranComptes.FontItalic = False
 
    ElseIf IsUserInGroup(LCase(Me.TxtUtilisateur), "chefs de service") Then
        ' Debug.Print "Is in group [chefs de service]"
        Me.BtOuvreFormEcranComptes.Enabled = False
        Me.EtiqOuvreFormEcranComptes.FontItalic = True
 
    Else
        ' Debug.Print "Is normal user"
        Me.BtOuvreFormEcranComptes.Enabled = False
        Me.EtiqOuvreFormEcranComptes.FontItalic = True
 
    End If
 
    Exit Sub
 
ErrorHandler:
   MsgBox "Error #: " & err.Number & vbCrLf & vbCrLf & err.Description
 
End Sub
 
 
' // Fonction IsUserInGroup
' // ======================
Public Function IsUserInGroup(strUser As String, strGroup As String) As Boolean
 
On Error GoTo err
 
    Dim oWs As DAO.Workspace
    Dim oUsr As DAO.User
 
    'Récupère l'espace de travail
    Set oWs = DBEngine.Workspaces(0)
 
    'Tente d'accéder à l'utilisateur depuis le groupe
    Set oUsr = oWs.Groups(strGroup).Users(strUser)
 
    'Retourne True
    IsUserInGroup = True
 
err:
 
End Function

merci à vous tous
.

[jimbolion]

Stars merci encore

Je vais sans doute m’inspirer de ta recherche afin de faire évoluer la sécurité dans mes applications ! Cette technique devrait pouvoir s'appliquer aussi en .Net !

@ Bientôt