Bonjour à tous,

Je souhaiterais utiliser ce code de Boisgontier, que je remercie au passage, mais je ne comprends pas comment il fonctionne. Il sert à protéger une feuille et de la protéger selon l'utilisateur, ça j'ai compris, mais j'aimerai comprendre comment se déroule la procédure. Pourriez-vous éclairer ma lanterne s'il vous plait ? Je vous en remercie par avance

Si l'utilisateur n'appartient pas à la liste des utilisateurs, le fichier est en lecture seule
ProtectionLectureSeule
Liste utilisateurs
Boisgontier
Dupont
La liste des utilisateurs est dans un onglet caché (xlveryhidden) et donc invisible.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub Workbook_Open()
  nom = Environ("username")
  Set temp = [utilisateurs].Find(what:=nom)
  If temp Is Nothing Then
    ActiveWorkbook.ChangeFileAccess xlReadOnly
  End If
End Sub