[VBA-E] Utilisation d'un tableau en réseau (multi-utilisateurs)

Bonjour à tous,

Je cherche à partager un tableau en réseau, et je suis confronter à plusieurs pbs. Je ne sais pas si je pose ma question sur le bon forum. Veuillez d'avance m'en excuser...:oops:

Je souhaite donner l'accès en modification de certaines cellules à certains utilisateurs.
Je souhaite aussi cacher certaines cellules en fonction de l'utilisateur.

Le fichier sera sur un serveur, en réseau.

En bricolant avec les protections d'Excel, j'arrive seulement à bloquer l'accès à certaines cellules. Mais je ne masque RIEN....

Si vous avez des solutions en VBA, je suis prenneur bien evidemment :king: !J'espère q mes explications auront été suffisantes. N'hésite pas à me poser des questions pr éclaircir les zones d'ombres.

Peins les caratères en blanc selon les utilisateurs et empêche leur sélection
A+

Un peu de code

Code:

---

1 2 3 4

ActiveSheet.Unprotect If Not Range("A6").FormulaHidden Then Range("A6").FormulaHidden = True Range("A6").Font.ColorIndex = 2 ActiveSheet.Protect

---

Le contenue de la cellule est invisible et la sélection ne permet pas de voir ce qu'il y a dedans ;)
A+

Citation:

---

Envoyé par ouskel'n'or

Peins les caratères en blanc selon les utilisateurs et empêche leur sélection
A+

---

Merci pour ta réponse.

Ok, pr les caractères en blanc, mais j'ai encore 3 questions :
1/ Comment masquer la formule ?
2/ Comment choisir les colonnes à peindre en blanc en fonction de l'utilisateur ? est-ce une commande à insérer dans ma macro ?
3/ A chq modification de cellule, Excel demande à l'utilisateur un mot de passe; Ne peut-il pas se loguer une fois et avoir ensuite accès aux zones qui lui sont dédiées ?

Citation:

---

Envoyé par ouskel'n'or

Un peu de code

Code:

---

1 2 3 4

ActiveSheet.Unprotect If Not Range("A6").FormulaHidden Then Range("A6").FormulaHidden = True Range("A6").Font.ColorIndex = 2 ActiveSheet.Protect

---

Le contenue de la cellule est invisible et la sélection ne permet pas de voir ce qu'il y a dedans ;)
A+

---

ok pour la 1! Merci !!

Salut

Sauf erreur, en mode partagé le verrouillage des cellules est statique. Si une feuille est protégée, il n'est pas possible d'annuler la proctection une fois que le classeur est partagé.

Une piste: utiliser les evênements du type Worksheet_SelectionChange.

Le code que je t'ai passé empêche l'affichage lors de la sélection.
Pour l'utilisateur,
If not Application.username = "Toto" then
mais tu peux aussi vérifier les variables d'environnement, le domaine
Debug.Print Environ(27)
'ou l'utilisateur
Debug.Print Environ(28)
Pour une boucle sur les cellules à masquer, tu crées un tableaux des cellules
Vite fait, pas testé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub MasquerUneCelluleEtEmpêcherAffichage() Dim tableau tableau = array(cells(1, 3).address, cells(12, 4).address) If Environ(28) <> "MACHIN" then ActiveSheet.Unprotect for i = 0 To ubound(tableau) If not range(tableau(i)).FormulaHidden Then range(tableau(i)).FormulaHidden = True Range(tableau(i)).Font.ColorIndex = 2 next ActiveSheet.Protect end If End Sub

---

Tu dis
A+

le problème est que l´utilisateur peut entrer sans activer les macros et là, il est libre de te poutrer toutes les cellules qu íl souhaite...
Dans une longue pratique de paranoia en ce qui concerne mes tableaux en partage sur le réseau, je masque l´onglet concerné en veryhidden et je demande à l´utilisateur de se logger pour que l´onglet apparaisse. Ensuite, il suffit d´associer à chaque nom d´utilisateur les champs auxquels il ne peut pas accéder...
Mais comme je le disais, cela tient de la grosse paranoia

J'ai 2 mn, donc, plus propre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub MasquerUneCelluleEtEmpêcherAffichageC() Dim F1 As Worksheet Dim Plage Set F1 = Worksheets("Feuil1") 'feuille à protéger Set Plage = F1.Range("A1:G1,H1:N1,M1:S1") If Environ(28) <> "MACHIN" Then ActiveSheet.Unprotect For Each Cel In Plage If Not Cel.FormulaHidden Then Cel.FormulaHidden = True Cel.Font.ColorIndex = 2 Next ActiveSheet.Protect End If End Sub

---

Testé et tout ;)
A+

Meu non, ce n'est pas un pb.
Pour empêcher le mauvais user de désactiver les macros :
Au départ, tu masques toutes les feuilles et les verrouilles
A l'ouverture, dans Auto_Exec, tu les affiches et tu lances ta macro qui teste le User. Epicétou.
A l'ouverture du fichier, macros désactivées, tout reste masqué.
Faudra juste lui interdire Ctrl + Pause. Mais là, je me souviens plus si je sais faire :mouarf:
A+

Une astuce pour récupérer sans peine les adresses des cellules à "opérer"

Code:

---

1 2 3

Dim r As Range Set r = Application.InputBox("Sélectionner les cellules en appuyant sur la touche ctrl", Type:=8) Cells(1, 1).Value = r.Address

---

et tu récupères ce qu'il y a dans "A1"
Juste parce que je te sens réticent :mouarf:
A+

Tiens, grâce à Bidou, j'ai retrouvé comment neutraliser les touches d'arrêt

Code:

---

Application.EnableCancelKey = xlDisabled

---

Attends le dernier moment pour le mettre en place : une boucle mal faite et tu n'en sors qu'avec le gestionnaire des tâches... :cry:
A+

Sans trop vouloir insister :) , si au final le classeur est en mode partagé les méthodes protect et unprotect ne fonctionneront pas. C'est cruel mais c'est comme ça !

Salut choucks,
Puisque tu as l'air de connaître les fichiers partagés, tu dois pouvoir répondre à cette question : Une macro conditionnée selon username pourrait-elle fonctionner ? Je ne parle plus de protection mais simplement d'une macro conditionnelle.
Si j'ai travaillé sur des applications en réseau sur des bases de données communes, je n'ai jamais travaillé sur fichiers partagés.
Merci de ta réponse. Elle pourrait offrir une solution de rechange (???) enfin elle permettrait d'y réfléchir :mouarf:
A+

Citation:

---

Envoyé par ouskel'n'or

Une macro conditionnée selon username pourrait-elle fonctionner ? Je ne parle plus de protection mais simplement d'une macro conditionnelle.

---

Oui une telle macro fonctionnera en tous cas j'ai pas trouvé de contre-indication sur la kb de microsoft.
Pour la protection de cellules dans un classeur partagé, j'utilise les evênements du type Worksheet_SelectionChange. Je donne un exemple très prochainement.

a+

Salut,

Voici une manière d'éviter que des cellules soient modifées par utilisateur. A adapter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Column Case 1, 4 To 11 'cellules des colonnes A, D ... K non verrouillées Exit Sub Case Else 'Verrouille les autres cellules MsgBox "Cette plage est verrouillée" Cells(Target.Row, 1).Select End Select End Sub

---

Merci chouks.
Il est donc possible, non seulement de verrouiller les cellules mais aussi de les masquer et d'en mettre les caractères en blanc.
Par contre, si on verrouille les cellules sans que la feuille soit protégée, il est possible d'y accéder et donc d'en modifier les propriétés.
Or, si la feuille est protégée au départ, il existe aussi cette syntase

Code:

---

Worksheets("Feuil1").EnableSelection = xlUnlockedCells

---

Dans ton exemple, la feuille est-elle en permanence protégée ?
Sinon, la solution alternative consisterait à faire un bricolage consistant à déplacer la sélection d'une cellule vers le bas si une cellule "interdite" est sélectionnée, ou d'une colonne s'il s'agit d'une colonne, ou d'une ligne s'il s'agit d'une ligne. Ceci, comme tu le suggères, dans la sub Worksheet_SelectionChange

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Plage() Plage = Array("$C$14", "$D$13", "$E$12", "$F$11", "$G$15", "$F$19") 'cellules interdites For i = 0 To UBound(Plage) If Target.Address = Plage(i) Then Cells(Target.Row + 1, Target.Column).Select Exit For End If Next End Sub

---

Ce code empêcherait tout modification de la cellule et si les caractères on la même couleur que le fond, de pouvoir les lire ;)
Et un bricolage de plus, un !
A+

NB - A l'attention des paranos ;) : Ce code n'empêche pas la sélection et la copie d'une plage contenant les cellules "défendues"... et alors là, allez savoir ce que l'espion ira en faire :mouarf: mais heureusement, il ne sait pas qu'il peut faire ça. Malheureusement, s'il est intelligent et qu'il a déjà fait du vba, il comprendra qu'il y a une astuce. Heureusement, il est fort probable qu'il ne comprenne pas laquelle. Malheureusement...

Je me place ici toujours dans le contexte d'un classeur qui sera partagé car c'est ce qui intéresse Mourne, donc il faut banir dans notre raisonnement le fait qu'il existe des méthodes toutes faites de protection des feuilles.

Donc l'aternative que tu offres ouskel'n'or est intéressante

Citation:

---

Envoyé par ouskel'n'or

Sinon, la solution alternative consisterait à faire un bricolage consistant à déplacer la sélection d'une cellule vers le bas si une cellule "interdite" est sélectionnée, ou d'une colonne s'il s'agit d'une colonne, ou d'une ligne s'il s'agit d'une ligne. Ceci, comme tu le suggères, dans la sub Worksheet_SelectionChange
Code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Plage() Plage = Array("$C$14", "$D$13", "$E$12", "$F$11", "$G$15", "$F$19") 'cellules interdites For i = 0 To UBound(Plage) If Target.Address = Plage(i) Then Cells(Target.Row + 1, Target.Column).Select Exit For End If Next End Sub

---

Ce code empêcherait tout modification de la cellule et si les caractères on la même couleur que le fond, de ne pas pouvoir les lire
Et un bricolage de plus, un !
A+

---

:king:

Merci à vous tous pr votre aide!
Je me suis qd meme heurté à des difficultés.:bug:

Je souhaiterai d'abord avoir qq précisions (elles vont peut etre vous paraitre un peu triviales...) :
1/ Quelles est la différence entre 1 "Private sub" et 1 "sub" ?
2/ Comment exécuter ce "Private Sub" etant donné q'il n'apparait pas ds les macros à exécuter.
3/ Environ(28) renvoie windir=c:\winnt , ne faut-il pas mieux récupérer le nom d'utilisateur ?
C'est ce que j'ai fait à l'aide d'une fonction, ce qui me permet d'effectivement tester le programme. 1er petit souci : je perds la couleur de police q j'avais auparavant; n'y a t il aucun moyen de masquer une cellule ss mettre en blanc ?

...en attendant, ma solution a été de masquer la colonne, et cela me convient ! :mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub MasquerUneCelluleEtEmpecherAffichageC()   Dim F1 As Worksheet Dim PlagePaul Dim Nom As String   Set F1 = ActiveSheet 'feuille à protéger   'F1.EnableSelection = xlUnlockedCells 'Application.EnableCancelKey = xlDisabled   Set PlagePaul = F1.Columns("B:C")   If GetUserName <> "paul" Then ActiveSheet.Unprotect Password:="fff" For Each Column In PlagePaul If Not Column.FormulaHidden Then Column.FormulaHidden = True 'Column.Font.ColorIndex = 2 Column.Hidden = True Next ActiveSheet.Protect Password:="fff" End If End Sub

---

4/ Peut-on selectionner plusieurs colonnes ? sans passer par range("B:C,F:F") qui me fait ensuite un traitement cellule par cellule.

Code:

---

1 2	Set Plage = F1.Columns("B:C") 'je voudrais par exemple sélectionner egalement la colonne "F:F"

---

Merci d'avance pr vos réponses

Un petit coup de :f1: sur l'instruction Private donne :

Citation:

---

Instruction utilisée au niveau module pour déclarer des variables privées et attribuer de l'espace de stockage.

Remarques

Les variables Private ne sont disponibles que pour le module dans lequel elles sont déclarées.

Utilisez l'instruction Private pour déclarer le type de données d'une variable. Par exemple, l'instruction suivante déclare une variable en tant que variable de type Integer :

Private NumberOfEmployees As Integer

Vous pouvez également utiliser une instruction Private pour déclarer le type objet d'une variable. L'instruction suivante déclare une variable pour une nouvelle instance d'une feuille de calcul.

Private X As New Worksheet

---

Donc pour atteindre une procédure d'un module hors du dit-module il ne faut pas Private devant Sub.

4/

Code:

---

Set Plage = Union(Columns(2), Columns(3), Columns(6))

---

Code:

---

3/ Environ(28) renvoie windir=c:\winnt , ne faut-il pas mieux récupérer le nom d'utilisateur ?

---

Cela doit sans doute dépendre du poste de travail (???)
Pour retrouver l'index, utilise plutôt cette syntaxe

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To Indx If InStr(Environ(i), "USERNAME") <> 0 Then debug.print "Index = " & i & " " & "UserName = " & Environ(i) If Environ(i) <> "BIBI" then 'Je verrouille ! endif End If Next

---

debug.print te permettra de voir les <> variables d'environnement dans la fenêtre Exécution ;)
A+

NB - A défaut d'une meilleure solution :(

Edit

Code:

---

if Environ("USERNAME") <> "BIBI" then

---

Chavais bien ! :evil:

Merci pour ton aide AlainTech

Citation:

---

Envoyé par AlainTech

4/

Code:

---

Set Plage = Union(Columns(2), Columns(3), Columns(6))

---

---

Cette commande me crée un autre pb.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

... If Environ("USERNAME") = "nz" Then ActiveSheet.Unprotect Password:="fff" For Each Column In Plage MsgBox "Case verrouillée." If Not Column.FormulaHidden Then Column.FormulaHidden = True 'La macro bloque sur la ligne ci-dessous Column.Hidden = True Next ...

---

Comment puis-je appeler la colonne ss procéder cellule après cellule ?

D'avance merci.

Citation:

---

Envoyé par choucks

Donc pour atteindre une procédure d'un module hors du dit-module il ne faut pas Private devant Sub.

---

Choucks,
En elevant juste Private, je ne peux exécuter la macro puisq cette fonction semble prendre des paramètres...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim Plage() Plage = Array("$C$14", "$D$13", "$E$12", "$F$11", "$G$15", "$F$19") 'cellules interdites For i = 0 To UBound(Plage) If Target.Address = Plage(i) Then Cells(Target.Row + 1, Target.Column).Select Exit For End If Next End Sub

---

Merci encore pr votre aide à tous. :)

Code:

---

Comment puis-je appeler la colonne ss procéder cellule après cellule ?

---

Teste ça, tu vas comprendre ce que fait ta boucle

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim Plage As Range Dim col As Range Set Plage = Union(Columns(2), Columns(3), Columns(6)) MsgBox Plage.Address For Each col In Plage MsgBox col.Address MsgBox col.Column Next End Sub

---

Et ensuite, teste ça

Code:

---

1 2 3 4 5 6 7 8

Sub Test() Dim Plage Plage = Array(Columns(2).Address, Columns(3).Address, Columns(6).Address) For i = 1 To UBound(Plage) MsgBox Columns(Plage(i)).Address Columns(Plage(i)).Hidden = True Next End Sub

---

Il existe certainement une autre manière de l'écrire ;)
A+

Edit
J'ai corrigé une énormité dans le deuxième test :oops: Là, c'est ok.

Citation:

---

Envoyé par Mourne

Choucks,
En elevant juste Private, je ne peux exécuter la macro puisq cette fonction semble prendre des paramètres...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim Plage() Plage = Array("$C$14", "$D$13", "$E$12", "$F$11", "$G$15", "$F$19") 'cellules interdites For i = 0 To UBound(Plage) If Target.Address = Plage(i) Then Cells(Target.Row + 1, Target.Column).Select Exit For End If Next End Sub

---

Merci encore pr votre aide à tous. :)

---

Cette marco ne doit pas se situer dans un module standard, elle doit être placée dans le module de la feuille dans laquelle tu souhaites protéger tes cellules. Désolé de ne pas avoir précisé cela :oops: tu peux remettre Private si tu veux après l'avoir placée dans le bon module.

Je te conseille de lire le cours de J-M Rabilloud : Programmer efficacement avec Excel en VBA

ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf

Pour les événements de l'objet Worksheet voir page 11. Mais tout le reste t'aidera également ;)

Citation:

---

Envoyé par choucks

Cette marco ne doit pas se situer dans un module standard, elle doit être placée dans le module de la feuille dans laquelle tu souhaites protéger tes cellules. Désolé de ne pas avoir précisé cela

---

Toi non, moi si si, ici :lol: