XL 2010 Contrôle d'accès par user et mot de passe

[jeanba]

Bonjour à tous,

J'ai trouvé en partie une solution à mon problème sur le forum, mais il doit avoir une erreur dans mon code et je suis en panne d'inspiration.

Voir ci-joint

Merci par avance

 

[cathodique]

Bonjour,

tu appelles ta fonction sans arguments. Modifie comme ceci

Private Sub CommandButton2_Click()
Call VerifMDP(ComboBox1.Text, TextBox1.Text)
UserForm1.Hide
End Sub

ton fichier en retour
Bon week-end.

 

[JCGL]

Bonjour à tous,
Salut Cathodique,

Avec le renseignement du dernier utilisateur en regard de la date en Feuille1

Function VerifMdP(Utilisateur As String, MdP As String) As Boolean
    Dim RngTrouve As Range, DateTrouve As Range
    VerifMdP = False      'par défaut, renvoie FAUX
    With Feuil2           'dans la feuille paramétrage
        'cherche, colonne E, le nom d'utilisateur saisi
        Set RngTrouve = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole)
        Set DateTrouve = Feuil1.Columns(1).Cells.Find(Date)
        If RngTrouve Is Nothing Then    'si il ne trouve pas
            VerifMdP = False    'la fonction renvoie faux
            MsgBox ("Nom d'utilisateur incorrect! " & Chr(14) & "Veuillez reessayez!")
        Else              's'il le trouve
            'vérifie que le mot saisi feuille parametrgae colonne G est identique au mot de passe saisi dans l'USF
            If RngTrouve.Offset(0, 1) <> MdP Then
                VerifMdP = False    'si FAUX
                MsgBox ("Mot de passe incorrect! Utilisateur non identifié! " & Chr(10) & "Veuillez reessayer!")
            Else
                VerifMdP = True    'si VRAI
                With Feuil4
                    .Visible = xlSheetVisible
                    .Activate
                    ActiveWindow.Zoom = 100
                End With
            End If
        End If
    End With
    Feuil1.Range(DateTrouve.Address).Offset(, 1) = RngTrouve
End Function

A+ à tous

 

[jeanba]

Bonsoir à tous,

Merci de vos propositions.
Je vais essayer ces solutions et si jamais il s'y trouvait un souci, biensûr je reviendrai.
Merci encore

 

[jeanba]

Feuil1.Range(DateTrouve.Address).Offset(, 1) = RngTrouve

Bonsoir JCGL,
Voici le message d'erreur que j'obtiens:

 

[cathodique]

Normal la feuil1 est cachée

with Feuil1
.visible=true
.Range(DateTrouve.Address).Offset(, 1) = RngTrouve
end with

 

[JCGL]

Bonjour à tous,

Étonnant car fonctionne chez moi bien que la feuille soit masquée.

A+ à tous

 

[Si...]

Bonsoir

J'ai trouvé en partie une solution à mon problème sur le forum, mais il doit avoir une erreur dans mon code et je suis en panne d'inspiration.

Et en simplifiant ta recherche ? Un exemple sans fonction perso et avec une liste de dates …
Il faudra aussi gérer l’affichage des onglets mais c’est une autre histoire !