[VBA] Exécuter macro seulement si bon username

[yeti_yeti]

Bonjour à tous,

J'aimerais pouvoir exécuter une macro seulement si l'utilisateur qui la lance est le bon... J'ai imaginé une macro qui ressemblerait à ça:

If Not Environ("Username") = "Jean" Or "Marc" Or "Jacques" Or  "Raoul" Then

    Exit Sub

Else

{Exécution de la macro}

End If

Malheureusement, plusieurs "Or" ne fonctionnent pas...

Auriez-vous une idée?

Merci d'avance
A+

YeTi

 

[Guest]

Re : [VBA] Exécuter macro seulement si bon username

Bonjour,

If IsError(Application.Match(Environ("Username"), Array("Jean", "Marc", "Jacques", "Raoul"), 0)) Then
    Exit Sub
Else
   'Exécution macro    
    
End If

Sinon il faudrait ecrire ta condition quelque chose comme ceci:

If Not (Environ("UserName") = "Jean") Or Not (Environ("UserName") = "Marc") Or Not (Environ("UserName") = "Jacques") Then

A+

 

[yeti_yeti]

Re : [VBA] Exécuter macro seulement si bon username

Merci beaucoup!
C'est parfait!