Bonjour au amateur de VBA,

Je rencontre un petit problème sur une programmation VBA.

Voici le détail.

À l'ouverture du fichier excel, dans ThisWorkbook il est écrit:

Sheets("Facturation").Visible = True
Sheets("Utilisateurs").Select
Application.Visible = False
UFLoggin.Show
ThisWorkbook.Close True

UFLoggin = Outil de Login

Une fois entrer mon mot de passe, je clique sur ok.

Et là mon problème arrive.  Voici le srcipt:


If UFLoggin.TBPass.Value = "mot de passe" Then
    Unload UFLoggin

Sheets("Facturation").Visible = True
Sheets("Utilisateurs").Select
Application.Visible = True

ThisWorkbook.Close False



    Sheets("Utilisateurs").Visible = True
Sheets("Utilisateurs").Select
Application.Visible = True

ThisWorkbook.Close False
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayWorkbookTabs = True
    End With
Else: Unload UFLoggin
MsgBox "Mot de passe incorrect"
End If
End Sub



La page excel ouvre mais les feuilles et onglets non.   Pourquoi?

Et voilà la question à mon problème. Je voudrais que tout réapparaisse.

Merci de votre aide!  




P.-S. : Et voilà le tout corrigé :

Private Sub CBOK_Click()
If UFLoggin.TBPass.Value = "Mot de passe" Then
    Unload UFLoggin
    Sheets("Utilisateurs").Select
    Application.Visible = True
    With ActiveWindow
        .DisplayHeadings = True
        .DisplayWorkbookTabs = True
    End With
Else
    MsgBox "Mot de passe incorrect"
    Unload UFLoggin
    ThisWorkbook.Close False
    Application.Visible = True
    Application.Quit
End If
End Sub