VBA : droits d'accès

[cheyenne63]

Bonjour
Je n’arrive pas à faire un code qui doit être tout simple en fait. Je sais que le sujet a été abordé maintes fois mais je n'arrive pas à adapter ...
Je suis sur un userform. Quand je clique sur le Bouton n° 1 si je suis sur la session Titi ou celle de Toto je veux qu’un autre classeur s’ouvre et celui en cours d’utilisation se ferme.
Par contre, que si un autre utilisateur (donc non autorisé dans le code) essaie de cliquer sur ce bouton rien ne se passe (simplement un message rappelant qu’il n’y a pas accès).
J’ai cru y arriver mais en fait avec le code ci-dessous, tout le monde peut ouvrir le fameux classeur !!!

Private Sub CommandButton1_Click ()
If Environ("username") <> "Titi" _
Or Environ("username") <> "Toto" Then
Application.Workbooks.Open "\\chemin d’accès du 2° classeur.xls"
Application.WindowState = xlNormal
Workbooks("Classeur à fermer.xls").Close
Else
MsgBox ("Vous n'avez pas les droits d'accès blablabla.")
End If

 

[Dranreb]

Re : VBA : droits d'accès

Bonjour.
C'est normal la condition est toujours remplie puisque si c'est "Toto" c'est pas "Titi" et vice versa.
Il faut And.
Eh oui : Not (A Or B) = Not A And Not B
Si c'est l'un d'eux c'est qu'ils n'en sont pas à la fois tous différents en même temps.