VBA Excel 2003 Problèmes d'affichage et de disparition

VBA Excel 2003 Problèmes d'affichage et de disparition - VB/VBA/VBS - Programmation

Marsh Posté le 01-09-2010 à 08:21:59    

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 :
  1. Private Sub CommandButton2_Click() 'Montrer BDD-------
  2.     Dim identif As String
  3.    
  4.     identif = InputBox("Veuillez entrer le mot de passe: ", "Autentification" )
  5.     If identif = "admin" Then
  6.         Worksheets("Base de Données" ).Activate
  7.         Worksheets("Base de Données" ).Visible = True
  8.         Unload UserForm1
  9.         identif = ""
  10.     Else
  11.         MsgBox ("Mot de passe erroné..." )
  12.     End If
  13. End Sub


 
J'ai de plus placé un autre bouton sur ma feuille:  
 
 
Dans Feuil1(Base de Données)  

Code :
  1. Private Sub CommandButton1_Click()
  2.     Load UserForm1
  3.     UserForm1.Show
  4.     Application.Visible = False
  5. End Sub


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

Code :
  1. Private Sub Workbook_Open()
  2.     Worksheets("Temp" ).Visible = True
  3.     UserForm1.Show
  4.     'Application.Visible = False
  5. 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

Reply

Marsh Posté le 01-09-2010 à 08:21:59   

Reply

Marsh Posté le 01-09-2010 à 08:26:44    

C'est encore moi,
 
J'ai oublié de mettre dans mon code du bouton présent dans UserForm1:
(entre les lignes 5 et 6)
 
Application.Visible = True

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed