Discussion :

[neiluj26]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Krovax]

Essaye peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[neiluj26]

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...

[ilank]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[neiluj26]

Bonjour Ilank,

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