j'ai pris connaissance de nombreuses discussions, fort intéressantes, sur le sujet mais je n'ai a priori pas trouvé la réponse à mon interrogation que je reformule :
* après que la cellule (par exemple) D3 ait été complétée,
* je souhaite verrouiller (par exemple) les cellules A1, B8, C 25, ... y compris la cellule D3.
Re : Verrouiller plusieurs cellules après saisie d'une donnée dans une cellule "x"
Bonjour jelobo,
Vous n'avez pas beaucoup cherché.
Il faut supposer qu'au départ la cellule D3 est déverrouillée et que la feuille est protégée (par exemple par le mot de passe TOTO).
Alors coller dans le code de la feuille (clic droit sur l'onglet et visualiser le code) :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, [D3]) Is Nothing Or IsEmpty([D3])) Then
Me.Unprotect "TOTO"
[A1,B8,C25,D3].Locked = True
Me.Protect "TOTO"
End If
End Sub
Re : Verrouiller plusieurs cellules après saisie d'une donnée dans une cellule "x"
Bonsoir,
le code ne fonctionne pas ; la cause en est peut-être des cellules fusionnées.
Mais ce code m'a été précieux pour trouver une solution satisfaisante à mon problème.
Oui, si par exemple la plage A1:A3 est fusionnée, il faut verrouiller toute la plage A1:A3 :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, [D3]) Is Nothing Or IsEmpty([D3])) Then
Me.Unprotect "TOTO"
[A1:A3,B8,C25,D3].Locked = True
Me.Protect "TOTO"
End If
End Sub