Probleme sur mon Userform de connexion

Bonjour,

J’ai besoin de votre aide car je suis bloquée

J’ai fait un userform de connexion qui s’exécute parfaitement à l’ouverture du fichier Excel,

Cependant je souhaiterais savoir comment faire pour bloquer l’accès au classeur si les champs (Utilisateur ou mots de passe ne sont pas correctes ou bien si ces derniers sont vides).

voici le code actuel

Option Explicit

 Private Sub Bouton_Connexion_enter()

On Error Resume Next

Dim mot_de_passe As String
Dim role As String

If Me.Txt_Utilisateur > 0 And Me.Txt_Passe >= 0 Then

mot_de_passe = WorksheetFunction.VLookup(Txt_Utilisateur, Sheets("Config").Range("A:C"), 2, 0)
role = WorksheetFunction.VLookup(Txt_Utilisateur, Sheets("Config").Range("A:C"), 3, 0)

            If mot_de_passe = Txt_Passe And role = "Admin" Then

            Sheets("Config").Visible = True

            Sheets("Tableau de bord").Visible = True

            Sheets("Liste des Salariés").Visible = True
            Sheets("Liste des Clients").Visible = True
            Sheets("Liste des Fournisseurs").Visible = True

            Sheets("Stock Société").Visible = True
            Sheets("Stock Clients_1").Visible = True

             ElseIf mot_de_passe = Txt_Passe And role = "Utilisateur" Then

        Sheets("Config").Visible = 2

        Sheets("Tableau de bord").Visible = True

        Sheets("Liste des Salariés").Visible = True
        Sheets("Liste des Clients").Visible = True
        Sheets("Liste des Fournisseurs").Visible = True

        Sheets("Stock Société").Visible = 2
        Sheets("Stock Clients_1").Visible = 2

        End If

Txt_Passe = ""
Txt_Utilisateur = ""
End If

Unload Connexion
Application.Visible = True
End Sub
            

Je remercie par avance toutes les personnes qui donnera quelques minutes de leur temps pour m’aider

Cordialement

Damien