J'ai un tableau excel qui est utilisé par plusieurs utilisateurs (A, B, C,
D, E, F).
Je souhaite donner l'accès en modification de certaines cellules à certains
utilisateurs.
Je souhaite aussi cacher certaines cellules en fonction de l'utilisateur.
En bricolant avec les protection d'Excel, j'arrive seulement à bloquer
l'accès à certaines cellules. Mais je ne masque RIEN....
J'espère q j'aurai été clair. N'hésitez pas à me poser des questions pr
éclaircir les zones d'ombres.
Merci d'avance pour votre aide à tous !!!
Bonsoir,
Voici un exemple simple où chaque utilisateur ne voit que les colonnes
qui lui sont affectées.
Les colonnes sont nommées avec le nom de l'utilisateur réseau. Il n'y
a pas de mot de passe à saisir.
Private Sub Workbook_Open()
Sheets(1).Unprotect Password:=""
Columns(Range(Environ("username")).Address).EntireColumn.Hidden =
False
Sheets(1).Protect Password:=""
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets(1).Unprotect Password:=""
Columns("h:z").EntireColumn.Hidden = True
Sheets(1).Protect Password:=""
End Sub
Créer des noms de champ avec Insertion/Nom/Définir:
jboisgon: H:J
stagiaire: K:M
xxxxxx: xxxx
Cordialement JB
Il faudrait surtout pas oublier de masquer la barre de formule !
Merci de vos réponses! Mais je vous avoue ne avoir tt saisi de vos
suggestions. qu'est ce que le format personnalisé ";;;" ??
Merci d'avance de votre lumière !
"Daniel" a écrit :
"JB" a écrit :
Le pgm s'appuie sur les noms d'utilisateurs réseau (pas besoin de
s'authentifier)
Version avec mot de passe:
Les noms des colonnes sont les mots de passe (dupont,....)
Private Sub B_ok_Click()
Sheets(1).Unprotect Password:=""
On Error Resume Next
Columns(Range(Me.motpasse).Address).EntireColumn.Hidden = False
Sheets(1).Protect Password:=""
Unload Me
End Sub
http://boisgontierj.free.fr/fichiers/Protection/ProtectionOngletColonnesMP.xls
Protection écriture d'un champ par mot de passe:
http://boisgontierj.free.fr/fichiers/Protection/ProtectionPermettreUtilisateurs.xls
JB
> > CordialementJB- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -