If application.username = "JJ" or "TT"

[jpmasclet]

Bonjour à tous,

Plutot que de mettre un mot de passe , je souhaite affectuer une macro à seule quelques utilisateur, pour ce faire , je veux utiliser le application.username, mon probleme est lorsque je veux mettre plusieurs personnes, cela ne marche pas.

Y a t'il un possibilité de mettre la liste des noms dans un feuille very hidden ?

Merci à tous.

 

[tototiti2008]

Re : If application.username = "JJ" or "TT"

Bonjour jpmasclet,

il faut savoir que Application.Username se change dans le menu Outils-Options. La sécurité est donc limitée sur ce type de test... Je te conseille d'utiliser
Environ("username")
qui renvoie le nom d'utilisateur Windows.

Dim User as string
User = Environ("username")
If User = "JJ" or User = "TT" then

 

[jpmasclet]

Re : If application.username = "JJ" or "TT"

Bonjour et merci pour ta réponse, effectivement, je n'y avais pas pensé, c'est mieux ansi. Par contre il y a t'il un moyen d'avoir un liste dans une feuille pour faire cela ?

 

[tototiti2008]

Re : If application.username = "JJ" or "TT"

Oui, bien sûr. Il faut que tu mettes tes noms d'utilisateurs dans ta feuille (admettons "Feuil1"), par exemple en colonne A :

if Application.WorksheetFunction.CountIf(ThisWorkbook.Worksheets("Feuil1").Range("A1:A65536"), User)>0 then
'Si l'utilisateur est autorisé
Else
'Si l'utilisateur n'est pas autorisé
End if