VBA Excel 2003: Problèmes d'affichage

Bonjour,

Je souhaite quand je lance ma feuille Excel faire apparaître uniquement mon Userform.
Pour cela, j'ai inséré un bouton dont voici le code:

Dans UserForm1

Private Sub CommandButton2_Click() 'Montrer BDD------- 
    Dim identif As String 
     
    identif = InputBox("Veuillez entrer le mot de passe: ", "Autentification") 
    If identif = "admin" Then 
        Application.Visible = True
        Worksheets("Base de Données").Activate 
        Worksheets("Base de Données").Visible = True 
        Unload UserForm1 
        identif = "" 
    Else 
        MsgBox ("Mot de passe erroné...") 
    End If 
End Sub 

J'ai de plus placé un autre bouton sur ma feuille:

Dans Feuil1(Base de Données)

Private Sub CommandButton1_Click() 
    Load UserForm1 
    UserForm1.Show 
    Application.Visible = False 
End Sub 

Enfin, lors du lancement de mon classeur, j'ai codé ça:

Dans ThisWorkbook

Private Sub Workbook_Open() 
    Worksheets("Temp").Visible = True 
    UserForm1.Show 
    'Application.Visible = False 
End Sub 

Le problème est que parfois ça disparaît (quand je veux repasser de la feuille à l'UserForm), d'autres fois le classeur ET l'UserForm sont visibles.
Si vous avez des suggestions, je suis preneur.

Merci.

Cordialement.