Bonjour
J'utilise un objet multipage...
J'ai configuré 3 pages dans chacune d'entre elles je stock des objets
j'active une vérification de l'utilisateur pour gérer les droits d'accès a certaine page.
Le problème c'est que quand je redirige l'utilisateur sur une autre page les objet de la page "évitée" reste affichés.
voila le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub MultiPage1_Change() If MultiPage1.Value = 0 And Application.username <> "XXXXX" Then MultiPage1.value = 1 MsgBox "Vous n'avez pas accès à cet onglet. Merci de contacter XXX" End If End Sub
plus simplement en laissant:
Ce bout de code sélectionne le deuxieme onglet du MultiPage sans rafraichir le contenu....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub MultiPage1_Change() If MultiPage1.Value = 0 Then MultiPage1.value = 1 End If End Sub
qqun aurait une idée?
Partager