If one cell contain certain word, then total row will be hide and protect

Can any one please change D column is not >6, its a text "Finish", make it AUTOHIDE, no need to use any buttons or else.

Sub hiderow()
    Dim i As Long, LR As Long
    LR = Cells(Rows.Count, "D").End(xlUp).Row
    For i = LR To 2 Step -1
        If Range("D" & i).Value > 6 Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
End Sub