verrouiller des cellules à partir de vba

Bonjour à tous

Débutante sur Excel et en langage VBA. Je travaille sur des mini projets afin de me former.
Pour mon projet j'ai une plage de cellules A8:J8
Je souhaiterai que les cellules B8 à J8 soit verrouiller et non modifiable à partir du moment ou un utilisateur entre une donnée dans A8.
et tant que A8 est vide, les cellules B8 à J8 ne sont pas verouillé

Je n'ai aucune idée pour la macro.

Si quelqu'un peut me guider ...

Sachant que toute la feuille est verrouiller par un mot de passe, et que la cellule A8 est également verrouillé par un autre mot de passe
Les cellules qui ne sont pas verrouillés à l'ouverture du classe sont B8 C8 D8 E8 J8

Merci pour votre aide :)

Bonjour Bisbis, bonjour le forum

Citation:

---

Envoyé par Bisbis27

Sachant que toute la feuille est verrouiller par un mot de passe, et que la cellule A8 est également verrouillé par un autre mot de passe.
Les cellules qui ne sont pas verrouillés à l'ouverture du classe sont B8 C8 D8 E8 J8

---

Si au départ A8 est verrouillée, je vois mal comment l'utilisateur va pouvoir l'éditer !... Impossible de créer un code correspondant a ta demande !

Bonjour,
J'imagine que : si A8 est protégée, comme le dit Thautheme, il va falloir la déprotéger par un mot de passe qui sera par exemple demandé de manière automatique lors de l'ouverture de la feuille
ensuite, il n'y a plus qu'a déprotéger le reste par la valeur de A8! Du moins j'imagine. :calim2:
Cordialement 8-)

à tester

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$8" Then Exit Sub 'si l'édition se fait ailleurs qu'en A8, sort de la procédure If Target.Value <> "" Then 'condition : si la valeur de A8 est différent de vide Cells.Locked = False 'déverrouille toutes les cellules Range(Cells(8, 2), Cells(8, 10)).Locked = True 'verrouille la cellule B8 à J8 ActiveSheet.Protect 'protège l'onglet Else 'sinon ActiveSheet.Unprotect 'déprotège l'onglet End If 'fin de la condition End Sub

---

Citation:

---

Envoyé par Thautheme

Bonjour Bisbis, bonjour le forum



Si au départ A8 est verrouillée, je vois mal comment l'utilisateur va pouvoir l'éditer !... Impossible de créer un code correspondant a ta demande !

---

Bonjour Thautheme

Alors en faite pour mieux explique, mes collaborateurs pourront modifier autant de fois qu'ils le souhaitent les cellules B8 C8 D8 E8 J8
Je suis la seule personne à posséder le mot de passe de la cellule A8 et en faite à partir du moment ou je l'édite, mes collaborateurs ne pourront plus modifier les cellules B8 C8 D8 E8 J8.
Je sais pas si tu as compris ?

Merci
Bisbis

Bonjour le fil, bonjour le forum,

Toujours pas très clair... Essaie comme ça :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$8" Then Exit Sub Me.Unprotect Range("B8:J8").Locked = Range("A8").Value <> "" Me.Protect End Sub

---

Bonjour,

Citation:

---

Sachant que toute la feuille est verrouiller par un mot de passe, et que la cellule A8 est également verrouillé par un autre mot de passe

---

Je suis curieux de savoir comment tu as fait pour avoir deux mots de passe distincts, l'un pou la feuille et l'autre pour la cellule A8. Quelle version d'excel as-tu ?
Ma version 2013 en tout les cas ne me le permet pas

Bonjour

La version que j'utilise est 2013
Alors j'ai d'abord protéger ma cellule via l'onglet révision puis via permettre la modification des plages
Puis j'ai protéger le classe via onglet protéger le classeur

Re,

Et à part ça...

Réponse aux choix !!! et peut être des réponses et contribution sont invisibles et/ou cachées !!! :aie:

Citation:

---

Envoyé par BENNASR

à tester

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$8" Then Exit Sub 'si l'édition se fait ailleurs qu'en A8, sort de la procédure If Target.Value <> "" Then 'condition : si la valeur de A8 est différent de vide Cells.Locked = False 'déverrouille toutes les cellules Range(Cells(8, 2), Cells(8, 10)).Locked = True 'verrouille la cellule B8 à J8 ActiveSheet.Protect 'protège l'onglet Else 'sinon ActiveSheet.Unprotect 'déprotège l'onglet End If 'fin de la condition End Sub

---

---

Je vais tester de suite et je tiens au courant si ça fonctionne
mercii :)

Citation:

---

Envoyé par Thautheme

Bonjour le fil, bonjour le forum,

Toujours pas très clair... Essaie comme ça :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$8" Then Exit Sub Me.Unprotect Range("B8:J8").Locked = Range("A8").Value <> "" Me.Protect End Sub

---

---

Coucou

alors je vais tester de suite
pour que tu visualises un peu mieux ce que je disais
je te met le document excel
Donc le mot de passe de la feuille est kb
et le mot de passe de la cellule A8 est kbb

Merci pour ta réponse :)

@BENNASR

Pièce jointe 417583

Bon voila y'a une erreur qui apparaît je vais essayer de réfléchir dessus de mon côté

@Thautheme

Pièce jointe 417585

écrire n'importe quoi à A8 rond la zonne B8-J8 verrouillée
vous pouvez remplacer la "A8" par une autre cellule en extrême droite et changer la couleur en blanc pour quelle ne soit pas visible

Citation:

---

Envoyé par BENNASR

écrire n'importe quoi à A8 rond la zonne B8-J8 verrouillée
vous pouvez remplacer la "A8" par une autre cellule en extrême droite et changer la couleur en blanc pour quelle ne soit pas visible

---

Merci super, mais du coup est ce que c'est possible d'avoir accès à la cellule A8 uniquement avec un mot de passe pour que personne d'autre n'ait accès à cette cellule

Exemple
je suis la seule à pouvoir modifier la cellule A8, personne d'autre n'y à accès car il faut entrer un mot de passe