Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1628 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Ouverture d'une page d'un multipage avec un mot de passe

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Ouverture d'une page d'un multipage avec un mot de passe

n°2306083
taze33
Posté le 27-09-2017 à 11:16:33  profilanswer
 

Bonjour à tous
Je ne suis pas un pro Excel et VBA.
Après pas mal de recherches et d’essais d’après les exmples sur le forum, je n’arrive pas à trouver ce que je souhaite faire. Voici donc mon problème :
J’ai un UserForm1 avec liste déroulante et un MultiPage à 5 pages (la cinquième est cachée) me permettant de vérifier ou modifier des données.
À partir du bouton « Ajouter un personnel » j’arrive à rendre ma 5ème page visible.  
Code :  
Private Sub CommandButton3_Click()
Me.MultiPage1.Pages(4).Visible = True
'UserForm1.MultiPage1.Value = 4
Mais ce n’est pas tout à fait ce que je veux faire. Je souhaite à partir du bouton « Ajouter un personnel » ouvrir un UserForm2, faire saisir un mot de passe (ça je sais faire) et revenir sur mon UserForm1 sur la page 5 mais je n’y arrive pas.
Voici les codes que j'utilise :
UserForm1
Private Sub CommandButton3_Click()
    UserForm2.Show
End Sub
 
UserForm2
Private Sub CommandButton1_Click()
  If TextBox1.Text = "1" Then
MsgBox ("Bon" )
UserForm2.Hide
Me.MultiPage1.Pages(4).Visible = True
UserForm1.MultiPage1.Value = 4
 Else
MsgBox ("pas bon" )
UserForm2.Hide
 End If
End Sub
 
PS : Est-il possible de faire saisir un mot de passe pour accéder au page d’un multiforme ce qui simplifierait ma procédure.  
 
Merci de l'aide que vous pourrez m'apporter.

mood
Publicité
Posté le 27-09-2017 à 11:16:33  profilanswer
 

n°2306100
master1551
Posté le 28-09-2017 à 01:51:51  profilanswer
 

Au lieu de faire un second userform, pourquoi pas utiliser une inputbox ?
 
rep = InputBox("Inséréer mot de passe", "Accès page cachée" )
If rep = 1 Then
Me.MultiPage1.Pages(4).Visible = True  
Me.MultiPage1.Value = 4  
Else
MsgBox "pas bon"
End If


---------------
https://500px.com/3enzam1n
n°2306101
taze33
Posté le 28-09-2017 à 07:27:34  profilanswer
 

master1551 a écrit :

Au lieu de faire un second userform, pourquoi pas utiliser une inputbox ?
 
rep = InputBox("Inséréer mot de passe", "Accès page cachée" )
If rep = 1 Then
Me.MultiPage1.Pages(4).Visible = True  
Me.MultiPage1.Value = 4  
Else
MsgBox "pas bon"
End If


 
Bonjour
Je ne fais pas d'InputBox car sauf erreur de ma part, il est impossible de masquer le mot de passe saisi.
Merci.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Ouverture d'une page d'un multipage avec un mot de passe

 

Sujets relatifs
Lister ouverture fichiers par rapport dateCréer une page sur Adobe Muse
Impression et mise en page automatiqueAffichage message erreur mot de passe
login/mot de passe dans script ftp dans dosDemander le login et le mot de passe
Ouverture de VM en plein écran à aprtir d'un batch (RESOLU)Timer sur page htm
Fractionner un site/une pageChargement page HTML
Plus de sujets relatifs à : Ouverture d'une page d'un multipage avec un mot de passe



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR