Ouverture d'une page d'un multipage avec un mot de passe - VB/VBA/VBS - Programmation
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
Marsh Posté le 28-09-2017 à 07:27:34
master1551 a écrit : Au lieu de faire un second userform, pourquoi pas utiliser une inputbox ? |
Bonjour
Je ne fais pas d'InputBox car sauf erreur de ma part, il est impossible de masquer le mot de passe saisi.
Merci.
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.