Protection Cellules : Utilisateurs Environ("username")

fileofish · 4 Mai 2016

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 · 9 Mai 2016

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

Bonjour tout le monde,

Je fais remonter le post sait-on jamais 😱
Philippe

Iznogood1 · 9 Mai 2016

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

Bonjour,

un essai en VBA:
Dans ThisWorkbook

Code:

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

Protection Cellules : Utilisateurs Environ("username")

fileofish

XLDnaute Occasionnel

Pièces jointes

fileofish

XLDnaute Occasionnel

Iznogood1

XLDnaute Impliqué

Discussions similaires

Protection Cellules : Utilisateurs Environ("username")

fileofish

XLDnaute Occasionnel

Pièces jointes

fileofish

XLDnaute Occasionnel

Iznogood1

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency