verrouiller des cellules à partir de vba

**Bisbis27** · 04/10/2018, 16h43

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

**Thautheme** · 04/10/2018, 17h09

Bonjour Bisbis, bonjour le forum

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 !

**Transitoire** · 04/10/2018, 17h16

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.

Cordialement

**BENNASR** · 04/10/2018, 17h18

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Bisbis27** · 05/10/2018, 08h40

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

**Thautheme** · 05/10/2018, 09h14

Bonjour le fil, bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Philippe Tulliez** · 05/10/2018, 09h41

Bonjour,

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

**Bisbis27** · 05/10/2018, 11h31

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

**Thautheme** · 05/10/2018, 12h19

Re,

Et à part ça...

**BENNASR** · 05/10/2018, 12h24

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

**Bisbis27** · 05/10/2018, 14h57

Envoyé par BENNASR

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Envoyé par Thautheme

Bonjour le fil, bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Bisbis27** · 05/10/2018, 15h03

@BENNASR

Nom : projet vba.png
Affichages : 2708
Taille : 24,6 Ko

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

**Bisbis27** · 05/10/2018, 15h05

@Thautheme

Test1.xlsx

**BENNASR** · 05/10/2018, 15h30

é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

**Bisbis27** · 05/10/2018, 15h37

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

verrouiller des cellules à partir de vba

Macros et VBA Excel

Discussions similaires

Partager

Partager