VBA-Protection-de cellule par mot de passe

Bonjour,

Je souhaite insérer plusieurs mots de passe qui soient fonctions à des valeurs dans les cellules.

Je m'explique: si une cellule par exemple A1 contient la valeur "AAA", alors c'est toute la ligne qui aura comme mot de passe "omega",

si la cellule A40 contient la valeur "BBB", alors c'est encore toute la ligne qui aura comme mot de passe "lambda".

Bien sûr le nombre de mot de passe possible est pré-définit.

Code:

---

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

Sub test3() Dim i As Integer, j As Integer Dim Cell As Range   Application.ScreenUpdating = False   'Récupère le numero de ligne de la dernière cellule 'non vide dans la colonne A. i = Worksheets("Feuil1").Range("A65536").End(xlUp).Row   'boucle de la dernière à la premiere ligne For j = i To 1 Step -1 'Vérifie si les cellules de la colonne A sont vides 'et les supprime si c'est le cas. If Worksheets("Feuil1").Cells(j, 1) = "GOGO" Then _ Worksheets("Feuil1").Rows(j).Protect Password:="Toto"   Next j   Application.ScreenUpdating = True   End Sub

---

Je ne comprend pas alors qu'il parait juste, il ne fonctionne pas au niveau de:

Code:

---

.Rows(j).Protect

---

Pouvez vous m'aider svp ?

Bonjour
Pouvez vous m'aider svp ?
Bien volontiers --->>
La méthode protect ne saurait s'appliquer qu'à un classeur ou à une feuille de calcul. En aucun cas à un objet Range
Ouvre ton aide VBA à la rubrique Worksheet.Protect, méthode et lis tout.
Le format des cellules à protéger lorsque la méthode protect est utilisée se définit comme il y est indiqué.

Merci, C'est noté,

mais alors est ce qu'il est possible de verrouiller des lignes entière avec un mot de passe

en fonction de la valeur se trouvant dans une cellule colonne 2 ?

ça fait 5 jours que je cherche.

Si vous avez des pistes merci de m'aider svp

Citation:

---

ça fait 5 jours que je cherche.

Si vous avez des pistes merci de m'aider svp

---

Je t'ai pourtant répondu ...
As-tu lu ce que je t'ai demandé de lire ? Apparemment non.
Tu saurais sinon que :
- ce qu'il y a à protéger se définit préalablement par le menu des formats de cellules (format de cellule -->> protection)
- que ce qui est défini est ensuite protégé ou déprotégé par la méthode protect
En d'autres termes : la méthode protect s'applique aux cellules dont le format/protection a été défini

Seule la méthode Protect peut être assortie d'un mot de passe (bien évidemment).

Bonjour,

Citation:

---

Envoyé par manufer

Je souhaite insérer plusieurs mots de passe qui soient fonctions à des valeurs dans les cellules.

---

Excel n'est pas et ne sera jamais un Coffre fort !

Je n'ai jamais trouvé le moindre intérêt à y mettre un mot de passe, alors un mot de passe pour certaines ligne et plus est, varie en fonction du contenu de certaines cellules ...
Ça me laisse dubitatif !

Bonjour,

Une possibilité sans protéger la feuille :

Code:

---

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim dict, motCle As String, i As Long, tmp, ok As Boolean Static lig As Long If Target.Column = 1 Then Exit Sub If Target.Rows.Count > 1 Then Target.Rows(1).Select Set dict = CreateObject("Scripting.Dictionary") tmp = Split("AAA,alpha,BBB,beta", ",") 'mots clé, mots de passe For i = 0 To UBound(tmp) Step 2 dict(tmp(i)) = tmp(i + 1) Next i If Target.Row <> lig Then lig = Target.Row motCle = Cells(Target.Row, 1) If dict.exists(motCle) Then ok = InputBox("Mot de passe de " & Cells(Target.Row, 1)) = dict(motCle) Else ok = True End If If Not ok Then Cells(Target.Row, 1).Select End If Set dict = Nothing End Sub

---

J'ai fait en sorte que le mot de passe ne soit demandé que la 1ère fois sur la ligne. Mais si tu quittes ton poste en laissant le curseur sur cette ligne n'importe qui pourra saisir dessus.
Je réduis d'office à 1 ligne sélectionnée. Tu peux fignoler en ne le faisant que si un mot clé existe dans la sélection.
Pour bien faire il faudrait remplacer InputBox par un formulaire avec un Textbox qui a la propriété passwordChar initialisée, pour masquer la saisie du mot de passe.
Comme dit précédemment, aucune protection sur excel ne tient longtemps avec qq'un de décidé.
eric

Merci pour vos réponses,

Alors si j'ai bien lu ce vers quoi tu m'as orienté mais je n'y ai pas trouvé ce que je cherchais ou du moins, je ne saurais pas l'adapter à ma situation.

Il s'agit d'un fichier qui sera utilisé par plusieurs personne,
sur la colonne 2 il y aura leur nom, et chacun d'eux aura un mot de passe qui lui permettra de modifier les colonnes 5 et 6 de la ligne sur laquelle se trouve son nom.

Mais même si ça se dit facilement, je vous assure qu'a faire c'est ...impossible presque.

Citation:

---

je vous assure qu'a faire c'est ...impossible presque

---

seul l'adverbe "presque" est ici justifié (et encore ...)
Il te suffit de décider dynamiquement :
- des cellules/plages à verrouiller (l'utilisation de l'enregistreur de macros t'en montrera le code)
- d'appliquer ensuite la méthode protect avec mot de passe

J'ai même eu l'occasion (plusieurs fois sur ce forum) de montrer comment, sans utilisation de la méthode Protect, on pouvait envoyer un utilisateur se balader ailleurs que là où cela ne lui est pas autorisé.


En gardant à l'esprit ce que t'a dit Patrice740, à savoir qu'une telle protection serait vite "cassée" par tout curieux connaissant un peu Excel. ;)

Enfin quoi ..
dans l'évènement selectionChange --->>
Si target.column est 5 ou 6 et que username <> de ce qu'il y a en colonne 2, on l'envoie tout simplement se balader sur la colonne 5 ou 6 de la ligne où son propre nom figue en colonne 2 :D