Discussion :

[Vba14]

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

[ARTURO83]

Bonjour,

Dans le cas présent, [Utilisateurs] est le nom donné à la liste des utilisateurs. Pour créer cette liste, sélectionnez la plage des noms, puis dans la zone de nom, écrivez utilisateurs et validez par ENTREE.
Au départ, le fichier est censé être accessible en lecture écriture, puis à l'ouverture du classeur, selon le nom de la personne qui se connecte, le fichier sera accessible en lecture écriture ou en lecture seulement.

nom = Environ("username") ou nom = Application.UserName, charge dans la variable "nom" le nom de l'utilisateur du PC
Set temp = [utilisateurs].Find(What:=nom, Lookat:=xlWhole), recherche le nom de l'utilisateur dans la liste nommée "utilisateurs" et le met dans la variable "temp", j'ai rajouté "lookat:=xlwhole", pour ne chercher que le nom exact.
If temp Is Nothing Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
End If
Si dans la liste "utilisateurs", le nom n'est pas trouvé alors le fichier passe en lecture seule, sinon il est reste accessible en "lecture écriture" à l'utilisateur.
Vous pouvez remplacer [utilisateurs], par la plage contenant la liste des noms à tester, exemple: Set temp =feuil2.range("A1:A10").Find(What:=nom, Lookat:=xlWhole)

Voilà.

Cdlt

[Vba14]

Bonjour ARTURO83,

Merci beaucoup pour ces explications qui me rendent plus clair ce code. Tout compte fait ce n'est pas trop ce que je recherche.
Je veux juste utiliser un mot de passe qui permet la saisie ou pas, mais pas de contrôle sur l'utilisateur de la machine.

Encore merci.
Cordialement