Discussion :

[GG971]

Bonjour,

J'aimerais, dans une feuille Excel, quand une cellule particulière est renseignée, pouvoir protéger toute le ligne, de façon à ce qu'elle ne puisse plus être modifiée.
Quelqu'un aurait-il une idée pour m'aider à automatiser cette tâche ?

Merci de votre aide;

[Fvandermeulen]

Bonjour,
Voici un début d'idée, après reste à voir quelles cellules sont concernées, en fonction de ça il faudra modifier le code, pour l'exemple je n'ai appliqué ça qu'a la cellule A24.
Ce code doit être placer dans la feuille concernée

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Range("a24") <> "" Then
ActiveSheet.Unprotect "MotDePasse"
Range("a24").EntireRow.Locked = True
ActiveSheet.Protect "MotDePasse"
End If
 
End Sub

Bonne continuation

[GG971]

Bonjour,

Merci pour cette réponse rapide, je vais essayer tout de suite.

Bonne journée

Gérard