accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage par

Mich1961

XLDnaute Nouveau
re bonsoir,
(j'ai changé l'intitulé)

j'ai accès à un userform par l'intermédiaire d'une cellule, cette userform contient des texbox et un multipage, je voudrais lors de l'accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage par mot de passe (différent suivant la page).
 

bqtr

XLDnaute Accro
Re : accès sur l'userform commander l'accès à la page1 ou à la page2 ... du multipage

Bonsoir Mich1961,

Voici un exemple avec un Multipage avec deux pages:
Code:
Private Sub UserForm_Initialize()

Dim Mdp As String

Me.MultiPage1.Pages(0).Enabled = False
Me.MultiPage1.Pages(1).Enabled = False

Mdp = InputBox("Entrer le mot de passe.", "Identification:")

Select Case Mdp
  Case Is = "Page1"
    MultiPage1.Pages(0).Enabled = True
    MultiPage1.Value = 0
  Case Is = "Page2"
    MultiPage1.Pages(1).Enabled = True
    MultiPage1.Value = 1
  Case Else
    MsgBox "Impossible d'activer la page.", , "Erreur d'identification."
End Select

End Sub

Suivant le mot de passe, la page 1 ou la page 2 du Multipage sera activée.
Si erreur sur le mot de passe les pages du Multipage resteront désactivées.

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 898
Membres
101 834
dernier inscrit
Jeremy06510