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
Code :
- Private Sub CommandButton2_Click() 'Montrer BDD-------
- Dim identif As String
-
- identif = InputBox("Veuillez entrer le mot de passe: ", "Autentification" )
- If identif = "admin" Then
- 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)
Code :
- 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
Code :
- 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.
Configuration: Windows XP / Internet Explorer 7.0
