Limiter une macro à certains utilisateurs

[Claudy]

Bonjour,
dans une procédure qui sauve, efface et imprime je voudrais limiter l'utilisation de cette macro à certains utilisateurs seulement!
J'ai essayé avec ceci, mais ça bug!

If Application.UserName not( Like "dupont" Or "zaza") Then
MsgBox (Application.UserName & "Vous n'avez pas les droits d'effacer!")
Exit Sub
End If

Merci d'avance pour votre aide!
A+
Claudy

 

[Pierrot93]

Re : Limiter une macro à certains utilisateurs

Bonjour,

essaye peut être ceci :

With Application
    If Not .UserName Like "dupont" And Not .UserName Like "zaza" Then
        MsgBox (.UserName & "Vous n'avez pas les droits d'effacer!")
        Exit Sub
    End If
End With

bonne journée
@+

Edition : remplacé le "or" par "and"

 

[Orodreth]

Re : Limiter une macro à certains utilisateurs

Bonjour,

Là comme ça, je dirais que Application.UserName te renvoie forcément quelque chose de plus complexe que "dupont" ou "zaza".
De plus, ta syntaxe n'est pas tout à fait exact, tu as les mots, mais pas dans le bon ordre.

Après, il est possible que tes "utilisateurs" soient dans la chaine de Application.Username.
Donc essaye ceci:

    If UCase(Application.Username) LIKE ("*DUPONT) Or UCase(Application.Username) LIKE ("*ZAZA*") Then
        '...traitement
    End if

EDIT: chassé-croisé ^^, bonjour Pierrot 🙂

Cordialement,
Orodreth

 

[Claudy]

Re : Limiter une macro à certains utilisateurs

Ok merci à vous deux, mais j'ai eu des probs avec les Ucase!
Bonne journée, A+ Claudy

 

[Orodreth]

Re : Limiter une macro à certains utilisateurs

Re,

Enlève les, le UCase, c'est juste pour passer en majuscule, mais c'est pas absolument nécessaire 🙂

 

[Claudy]

Re : Limiter une macro à certains utilisateurs

C'est ce que j'ai fait!
Et encore merci.