Useform : afficher et fermer dans certains cas

[noemie45]

Bonjour,

j'ai crée un userfom que j'utilise comme masque de saisie, il sert a alimenter une base de donnée sous excel.
j'ai 2 types d'utilisateurs :
Utilisateurs 1
Ils ne voient pas la base. ils saississent et ferment le userform.
Utilisaterurs 2
Ouvre la base, par l'intermédiaire d'un bouton sur le userfor, avec un accès sécurisé et travaillent directement sur le fichier excel

Mon problème est que dans le workook j'ai mis ce code :

End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
userform1.Show
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
userform1.Hide
End Sub

Pour que les utilisateurs 1 puissent naviguer entre plusieurs fichiers.
Donc dès qu'ils vont sur un autre fichier, et qu'ils reviennent sur le fichier en question le userform reapparait

Par contre, je ne voudrais pas que ceci se produise pour les utilisateurs 2.

Est ce que vous avez une idée???
Par exemple; lorsque les utilisateurs 2 ouvrent la base ceci ferme définitivement le useform mais il faudrait déplacer le code cité ci-dessus ailleurs (mais je ne sais pas où)

je suis désolé mais je ne peux pas fournir d'exemple, j'ai des codes de partout dans mon userform!!

 

[noemie45]

Re : Useform : afficher et fermer dans certains cas

hello les amis!
est ce que quelq'un peut me dépanner?

 

[Pierrot93]

Re : Useform : afficher et fermer dans certains cas

Bonjour,

petite remarque au passage, sauf erreur la propriété "Hidden" ne s'applique pas à un "userform", enfin jusqu'à la version excel 2003...

bonne journée
@+

 

[noemie45]

Re : Useform : afficher et fermer dans certains cas

j'utilise excel 2010. Mais c'est peut être ça mon problème.
Je peux le remplacer par quoi??

 

[Pierrot93]

Re : Useform : afficher et fermer dans certains cas

Re,

je pense que tu peux supprimer l'instruction en question, ne devrait pas avoir d'incdence.... pas testé sous 2010 mais ok sous 2003....

 

[noemie45]

Re : Useform : afficher et fermer dans certains cas

oui mais si j'enlève l'insructruction, mon userform reste affiché alors que je veux q'il soit caché pour aller sur d'autre fichier excel!

 

[noemie45]

Re : Useform : afficher et fermer dans certains cas

j'ai bidouillé et j'ai mis ça :
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
'on le cache que si il était affiché
If TypeUtilisateur = 1 Then userform1.Hide
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If TypeUtilisateur = 1 Then userform1.Show
'on ne montre le userform à nouveau que si il s'agit d'un user avec accès restreint
End Sub

et ça fonctionne!!! merci pour votre aide

 

[Pierrot93]

Re : Useform : afficher et fermer dans certains cas

Re,

je pensais ne conserver que ceci dans la procédure :

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
UserForm1.Hide
End Sub