I am trying to secure my workbook, i have multiple sheets that i need to hide and leave only one sheet to be displayed that will have a command button (Picture 1) when I click on it I have a userform that pops up (Picture 2) with username and password to open specific sheets( ive set different usernames and passwords to open specific sheet) 
[enter image description here](https://i.stack.imgur.com/L6qgn.png)
[enter image description here](https://i.stack.imgur.com/O16s5.png)
I wrote this code :

```
    Private Sub CommandButton1_Click()
Dim User, Pass As String

User = Me.TextBox1.Text
Pass = Me.TextBox2.Text
    If User = "Admin" And Pass = "123" Then
    MsgBox ("Bienvenu")
    Application.Visible = True
    ActiveWorkbook.Unprotect Password:="password"
    Sheets("ACCEUIL").Visible = True
    Sheets("Liste Personnes").Visible = True
    Sheets("Liste IT").Visible = True
    Sheets("Liste PE").Visible = True
    Sheets("Liste EM").Visible = True
    Sheets("Liste ELC").Visible = True
    Sheets("Liste Habilitation").Visible = True
    Sheets("Liste EPC").Visible = True
    Sheets("Liste ECH").Visible = True
    ActiveWorkbook.Protect Password:="password"

    Unload Me
    Else

    'Pole Essais
    If User = "Admin1" And Pass = "456" Then
    MsgBox " Bienvenue"
    Application.Visible = True
    ActiveWorkbook.Unprotect Password:="password"
    Sheets("Liste Personnes").Visible = True
    Sheets("Liste IT").Visible = True
    Sheets("Liste PE").Visible = True
    Sheets("Liste EM").Visible = True
    Sheets("Liste ELC").Visible = True
    Sheets("Liste Habilitation").Visible = True
    Sheets("Liste EPC").Visible = True
    Sheets("Liste ECH").Visible = True
    Sheets("PICHON Franck").Visible = True
    Sheets("MAGNIER Jean-Fran?ois").Visible = True
    Sheets("LAPIERRE Louis").Visible = True
    Sheets("HOSSAERT Didier").Visible = True
    Sheets("DEBEYER Nicolas").Visible = True
    Sheets("GARCIA Manuel").Visible = True
    Sheets("GIRARD Sunny").Visible = True
    Sheets("SICOT Thimot?e").Visible = True
    Sheets("BEAUVILLAIN Maxime").Visible = True
    Sheets("WATTEZ Eric").Visible = True
    Sheets("PROUVOST Thomas").Visible = True
    Sheets("PROUVOST Mathieu").Visible = True
    Sheets("GARCIA Manuel").Visible = True

    ActiveWorkbook.Protect Password:="password"

    Unload Me
    Else
    MsgBox " Verifier le nom d'utilisateur ou le mot de passe"
    End If
    End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
ActiveWorkbook.Close True
End Sub

```

`
it doesnt work as I want the problem is when I close my workbook and reopen it I have the recent sheets That ive been working on displayed on my workbook, and I want the worksheet "ACCEUIL" to be displayed not those Ive been working on the last time I opened the workbook.