XL 2019 Surligner une ligne non active (protégée)

[DJISA]

Bonjour le forum!
Très heureux de vous retrouver après un long bail!
J'ai fait ce code pour surligner la ligne de la cellule active et j'ai un message d'erreur. C'est normal car la feuille est protégée à certains endroits car il y a des formules.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("_maligne") = ActiveCell.Row
End Sub

Question: Existe-il un moyen de surligner un ligne protégée?

DJISA

 

[fanch55]

Bonjour,
A tester , mais vous ne pourrez plus jamais surligner d'autre cellule que celles sélectionnées .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Me.Unprotect ' (motdepasse)
        Me.Cells.Font.Underline = False
        For Each T In Target
            Me.Rows(T.Row).Font.Underline = True
        Next
    Me.Protect ' (motdepasse)
    
End Sub