Protection Cellules : Utilisateurs Environ("username")

[fileofish]

Bonjour Le Forum,

Je suis bloqué sur le point suivant :

Je cherche en Macro à ce que la plage en orange dans le fichier joint pour chacun des onglets soit modifiable sans mot de passe pour un utilisateur ex : "Toto"

Dis autrement je souhaiterais que la plage ("A12:E31") de chacun des 12 onglets :
- Soit modifiable sans mot de passe par "Toto"
- Ne soit pas modifiable hormis en mettant un mot de passe par les autres

Pour le mot de passe :"Coffre"

Le problème c'est que la macro automatique n'enregistre pas le nom d'utilisateur.

J'ai trouvé un site ou l'on parle de la fonction Environ("username") mais je n'arrive pas à l'adapter
Protection

c'est pas évident

Nb : "toto" sera en fait un nom associé à un nom de domaine est ce que cela pose problème ?

Merci encore
Philippe

 

[fileofish]

Re : Protection Cellules : Utilisateurs Environ("username")

Bonjour tout le monde,

Je fais remonter le post sait-on jamais
Philippe

 

[Iznogood1]

Re : Protection Cellules : Utilisateurs Environ("username")

Bonjour,

un essai en VBA:
Dans ThisWorkbook

Option Explicit

Private Sub Workbook_Open()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    ws.Unprotect "Coffre"
    ws.Range("A12:E31").Locked = (Ucase(Environ("username")) = "TOTO")
    ws.Protect "Coffre"
  Next ws
End Sub