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

Ouverture d'une page d'un multipage avec un mot de passe - VB/VBA/VBS - Programmation

Marsh Posté le 27-09-2017 à 11:16:33    

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.

Reply

Marsh Posté le 27-09-2017 à 11:16:33   

Reply

Marsh Posté le 28-09-2017 à 01:51:51    

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
Reply

Marsh Posté le 28-09-2017 à 07:27:34    

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.

Reply

Sujets relatifs:

Leave a Replay

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