Configuration lecture/ecriture

Bonjour,

je suis en train de mettre en place un fichier et j'ai besoin de votre aide :

j'ai une liste de noms appelée "utilisateur"

je rapatrie le nom de la session qui correspond ou pas à un nom dans ma liste.

ce que je voudrais pour évité les problèmes c'est de faire la chose suivante :

si la personne est dans la liste elle a le droit en lecture/écriture sur tout le fichier et si elle ne fait pas partie de la liste elle n'a le droit d’accès quand lecture sur tout le fichier (attention ne pas bloquer l'impression).

Merci pour votre aide

PS : pour info le nom de la session ouverte se trouve en I2 dans la feuille "BASE" et ma liste s'appelle "UTILISATEURS"

pour info voici la macro qui me permet de rappatrier le nom

Sub NomUtilisateur()

  Sheets("BASE").Select

Range("I2") = Environ("username")
Sheets("ATTENTE PRISE EN MAIN").Select

End Sub

bon j'ai trouvé deux macro qui fonctionnent bien j'ai juste un problème comment ne pas afficher le message avec cette macro.

message "voulez-vous enregistrer les modification....."

Sub seul()
ThisWorkbook.ChangeFileAccess xlReadOnly

End Sub

c'est bon j'ai trouvé merci à ceux qui ont pris le temps de me lire