XL 2019 vba exclure une colonne du verouillage

[labellebleu]

Bonjour à tous,

on m'a donné ce code qui suit pour interdire les modifications sur les lignes dont la date est passé de plus de 30 jours et la date se trouvant en colonne a.
Maintenant je souhaiterais exclure la colonne C.
Dim n&


n = Target.Row
If n > 1 Then
If IsDate(Me.Cells(n, 1)) Then

If Me.Cells(n, 1) < (Date - 30) Then

ActiveSheet.Protect Password:="dario2005", DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
End If
End If

D'avance merci et bonne journée a tous

 

[sylvanu]

Bonjour Isabellebleu,
Essayez cela :

    If Me.Cells(n, 1) < (Date - 30) And target.Column <> 3 Then

Cela exclut la colonne C.

 

[labellebleu]

Merci beaucoup cela fonctionne parfaitement!