XL 2013 droit d'accès dans excel userform vba

[power28]

Salut, j'ai un petit souci avec un fichier excel je sais qu'en arrivant ici mon problème est déjà resolu!
j'ai une fenêtre de connexion pour donner accès à la fenêtre principale qui a 3 boutons dessus, donc suivant le droit qu'à un utilisateur les boutons seront ENABLED.

J'ai mis le fichier en pièces jointe, Merci déjà pour votre aide!

 

[danielco]

Bonjour,

Essaie :

Sub voirbutton(Utilisateur As String)
    'PharmaForm.Show
Dim col, i As Byte
Dim lig%
Dim lesbuttons As Object
Dim j%
Dim Ctrl As Object
'Dim Cont As Control
    
    With Sheets("Setting")
        col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
        Set lesbuttons = UserForm2.Frame1.Controls
        lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
        For i = 3 To col
            If UCase(.Cells(lig, i)) = "X" Then
              lesbuttons(i - 3).Enabled = True
            End If
        Next i
        Unload UserForm1
        UserForm2.Enabled = True
        UserForm2.Show
    End With
End Sub

Daniel

 

[power28]

Awwwwww ça marche super bien Daniel, Merci les corrections! vous avez une idée comme quoi si je voudrais gérer la déconnexion.. j'ajoute un bouton de connexion et quand un utilisateur est connecté il affiche deconnexion.. et que la fenetre de connexion s'affiche à present?
un grand merci !