Userform et multipage

marleauc

XLDnaute Occasionnel
Bonjour,

est-ce possible d'Effectuer un controle d'accès a certain page de mon multipage de mon userform relier au mot de passe pour voir les onglets
ex: administrateur va pourvoir voir (active) tout les pages du multipage
robert serait limiter qu'a la page 1 etc

comme dans la onglet LOGIN
merci
 

Pièces jointes

  • Test.xlsm
    1.4 MB · Affichages: 52

marleauc

XLDnaute Occasionnel
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

y a cette formule qui fonctionne mais j'aimerais pouvoir l'annexé au priviligège de l'onglet Login
 

ChTi160

XLDnaute Barbatruc
Bonjour marleauc
Bonjour le Fil , le Forum
Un exemple avec Bouton d’accès , on pourrait avoir aussi un accès aux feuilles du Multipage via une Liste de Noms de Pages.
Pour simplifier j'ai mis les deux acces possibles sur le Userform
soit : Monsieur puis Gestionnaire comme Nom et x comme prénom et Le Mdp : 123456
Idem pour Madame etc etc Mdp:234567
fichier adapte d'un autre fichier
jean marie
 

Pièces jointes

  • Test Multipage-Chti160-2-2.xlsm
    2.1 MB · Affichages: 138

Discussions similaires

Statistiques des forums

Discussions
312 104
Messages
2 085 337
Membres
102 865
dernier inscrit
FreyaSalander