Bonjour
J'ai crée une userform avec plusieurs onglets, en fonction de la personne qui ouvre le programme certain onglet peuvent etre desactivé.
tout cela fonctionné parfaitement sur excel 2003, par contre impossible de le faire fonctionner sur excel 2007 il me mets une erreur 13
si quelqu'un peut me venir en aide merci d'avance
voici une partie du code:
'méthode qui active que certaines pages de l'application
'en fonction des droits de l'utilisateur connecté
Public Sub typeUtil()
Dim p As Page
If id = "util" Then
UserForm1.MultiPage1.Value = 0
Set p = UserForm1.MultiPage1.Pages(0)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(1)
p.Enabled = False
Set p = UserForm1.MultiPage1.Pages(2)
p.Enabled = False
Set p = UserForm1.MultiPage1.Pages(3)
p.Enabled = False
Set p = UserForm1.MultiPage1.Pages(4)
p.Enabled = True
End If
If id = "admin" Then
UserForm1.MultiPage1.Value = 1
Set p = UserForm1.MultiPage1.Pages(0)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(1)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(2)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(3)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(4)
'p.Enabled = True
End If
If id = "superadmin" Then
UserForm1.MultiPage1.Value = 1
Set p = UserForm1.MultiPage1.Pages(0)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(1)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(2)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(3)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(4)
p.Enabled = True
End If
Cordialement
J'ai crée une userform avec plusieurs onglets, en fonction de la personne qui ouvre le programme certain onglet peuvent etre desactivé.
tout cela fonctionné parfaitement sur excel 2003, par contre impossible de le faire fonctionner sur excel 2007 il me mets une erreur 13
si quelqu'un peut me venir en aide merci d'avance
voici une partie du code:
'méthode qui active que certaines pages de l'application
'en fonction des droits de l'utilisateur connecté
Public Sub typeUtil()
Dim p As Page
If id = "util" Then
UserForm1.MultiPage1.Value = 0
Set p = UserForm1.MultiPage1.Pages(0)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(1)
p.Enabled = False
Set p = UserForm1.MultiPage1.Pages(2)
p.Enabled = False
Set p = UserForm1.MultiPage1.Pages(3)
p.Enabled = False
Set p = UserForm1.MultiPage1.Pages(4)
p.Enabled = True
End If
If id = "admin" Then
UserForm1.MultiPage1.Value = 1
Set p = UserForm1.MultiPage1.Pages(0)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(1)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(2)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(3)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(4)
'p.Enabled = True
End If
If id = "superadmin" Then
UserForm1.MultiPage1.Value = 1
Set p = UserForm1.MultiPage1.Pages(0)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(1)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(2)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(3)
p.Enabled = True
Set p = UserForm1.MultiPage1.Pages(4)
p.Enabled = True
End If
Cordialement