Simplifier un bout de code pour passage en lecture seule

Bonjour le forum,

J'ai un fichier en réseau disponible pour plusieurs dizaines d'utilisateurs, mais je voudrais restreindre l'accès en lecture-écriture à seulement 6 d'entre eux.
Pour ce faire, j'utilise ce code à l'ouverture

Code:

---

1 2 3 4 5 6 7 8 9 10

If (UCase(Environ("Username"))) <> "Machin1" And _ (UCase(Environ("Username"))) <> "Machin2" And _ (UCase(Environ("Username")))<> "Machin3" And _ (UCase(Environ("Username"))) <> "Machin4" And _ (UCase(Environ("Username"))) <> "Machin5" And _ (UCase(Environ("Username"))) <> "Machin6" Then On Error GoTo Fin ThisWorkbook.ChangeFileAccess xlReadOnly Fin: End If

---

J'aimerais améliorer deux choses même si ce code a l'air de fonctionner... la succession de "if and" si possible.

Code:

---

1 2 3 4 5 6

Select Case (UCase(Environ("Username"))) Case <> "Machin1", "Machin2", "Machin3", "Machin4", "Machin5", "Machin6" On Error GoTo Fin ThisWorkbook.ChangeFileAccess xlReadOnly Fin: End select

---

N'a l'air de donner l'accès en lecture écriture seulement à Machin1.

Et puis, j'ai mis le On Errot GoTo pour éviter une erreur quand un des utilisateurs élus est déjà sur le fichier et qu'un autre élu veut l'ouvrir.

Merci de vos lumières encore une fois.

Essaye peut être

Code:

---

1 2 3 4 5 6 7 8

Select Case (UCase(Environ("Username"))) Case "Machin1", "Machin2", "Machin3", "Machin4", "Machin5", "Machin6"   case else On Error GoTo Fin ThisWorkbook.ChangeFileAccess xlReadOnly Fin: End select

---

par contre je ne comprend vraiment pas ce que tu reproche a ton if...


a mon avis dans ton code

Code:

---

Case <> "Machin1", "Machin2", "Machin3", "Machin4", "Machin5", "Machin6"

---

tu rentre si le username est différent de Machin1 egale a machin2...
je doute que

Code:

---

Case <> "Machin1", <>"Machin2"

---

fonctionne
car machin1 est différent de machin 2 et du coup on entre dans le cas

Mais je n'ai pas encore testé

edit :
effectivement

Code:

---

1 2 3 4 5

select case i Case Is <> 1, Is <> 2 MsgBox "" End Select

---

permet de d'afficher la boite de dialogue quelque soit la valeur de i même si i=1 ou2

Je vais tester, merci.
Je reproche juste à mon if de me faire un gros pâté indigeste, mais j'avoue que c'est plus esthétique qu'autre chose... :)

Bonjour,

une idée comme ça. Crée une constante de type string contenant soit la liste des noms utilisateurs autoriés ou non autorisés; de manière à obtenir

Code:

---

1 2 3

Const AllowedUsers ="Machin1Machin2Machin3"   If Instr(AllowedUsers,environ("UserName"))=0 Then ThisWorkbook.ChangeFileAccess xlReadOnly

---

Si la liste des utilisateurs changent tu as juste à modifier la constante

Bonjour Ilank,

Ta méthode semble fonctionner. Je ne connaissais pas vraiment la fonction InStr. Merci :).