Gestion des autorisations

[gagletor]

Bonjour à tous,

Je souhaiterais intégrer à un de mes petit programme, une gestion d'autorisation.
Petit explication sur le fonctionnement de mon programme.
Il s'agit d'un moteur de recherche fait sur excel, qui me permet de rechercher des cartes de contrôle (fichiers excel également) sur le réseau de l'entreprise.

Sur chaque carte de contrôle figure des paramètres de contrôle. Pour les modifier, on clique sur un bouton nommé "modification" qui ouvre un userform me demandant un login et un mot de passe. En fonction du login, j'accède à plus ou moins de boutons. Pour le moment, mes mots de passe sont gérés de la manière suivant :

If Utilisateur.Text = "robert" And mdp.Text = "dupont" Then
Feuil1.CommandButton5.Enabled = True
Feuil1.CommandButton7.Enabled = False

etc..
----------------------

Le problème est que je dispose aujourd'hui de plusieurs dizaines de cartes de contrôle, et lorsque je veux changer un mot de passe, ou rajouter un utilisateur, je dois modifier l'ensemble des cartes.
Je souhaiterais gérer mes login, mots de passe et autorisation par le biais d'une feuille excel sur le réseau, de manière à ce que je n'ai que cette feuille à modifier pour rajouter, modifier ou supprimer un utilisateur.

Si quelqu'un a une idée, je suis preneur.

En vous remerciant

greg

 

[PascalXLD]

Re : Gestion des autorisations

Bonjour

je te mets un code plus ou moins brut de décoffrage que j'utilisais dans une de mes applis à toi de le modeler

Attention mes variables étaient déclarées Public car je les utilisais à d'autres moments donc tu ne les verras pas déclarées

Private Sub Btn_Valider_Click()

If Me.Tb_Login = "" Then
    marep = MsgBox("Vous devez entrer un login.", vbCritical + vbOKOnly)
    Exit Sub
End If


For x = 2 To Sheets("BasePersonnel").Range("A65536").End(xlUp).Row
    If UCase(Me.Tb_Login) = Sheets("BasePersonnel").Range("A" & x) Then
        If UCase(Me.Tb_Pwd) <> UCase(Sheets("BasePersonnel").Range("B" & x)) Then
            marep = MsgBox("Mot de passe non valide.", vbCritical + vbOKOnly)
            Me.Tb_Pwd.Value = ""
            Me.Tb_Pwd.SetFocus
            Exit Sub
        End If
        Droit = Sheets("BasePersonnel").Range("C" & x)
        UserAppli = Sheets("BasePersonnel").Range("D" & x)
        GoTo droitlogin
    End If
Next

marep = MsgBox("Vous devez entrer un login valide.", vbCritical + vbOKOnly)
Me.Tb_Login.Value = ""
Me.Tb_Login.SetFocus
Exit Sub

droitlogin:
Select Case Droit
    Case 0
        Me.Btn_AccesPbe.Visible = True
        Me.Btn_Gestion.Visible = True

    Case Else
        Me.Btn_AccesPbe.Visible = True
        Me.Btn_Gestion.Visible = False
End Select

End Sub

 

[gagletor]

Re : Gestion des autorisations

Bonjour Pascal,

Merci pour cette réponse rapide, je vais essayer de travailler dessus, mais je n'est pas tout compris lol

J'aurais peut être qq question un peu plus tard.

Encore merci

greg