protection ligne

Robert à dit:

Bonjour Pierre, bonjour le forum,

Pour protéger des cellules deux choses doivent êtres faites. Le verrouillage des cellules et la protection de l'onglet. Par défaut toutes les cellules sont verrouillées et donc si on protège l'onglet on ne peut plus rien éditer. Je te propose donc une première macro qui déverrouille toutes les cellules et protège l'onglet et qu'il faudra que tu executes en premier :

Code:

Sub Macro1()
ActiveSheet.Cells.Locked = False 'déverouille toutes les cellules de l'onglet
ActiveSheet.Protect 'protège l'onglet
End Sub

Ensuite cette macro événemetielle du composant ThisWorkbook qui fait ce que tu demandes sur tous les onglets du classeur:

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 6 Then 'condition 1 : si le changement à lieu dans la colonne F
 
    If UCase(Target.Value) = "VALIDE" Then 'condition 2 : si "valide" a été édité (quelle que soit la casse)
        ActiveSheet.Unprotect 'déprotège l'onglet
        Target.EntireRow.Cells.Locked = True 'verrouille toutes les cellules de la ligne
        ActiveSheet.Protect 'protège l'onglet
    End If 'fin de la condition 2
 
End If 'fin de la condition 1
End Sub

Cliquez pour agrandir...