Protect a specific range on an excel sheet VBA

Question

I have a filter program that I want to apply. But I want to apply it on protected range : columns A:H.

I tried using this

Sub Protect()
    ActiveSheet.Unprotect "lemotdepasse"
'Placez ici vos instructions
    ActiveSheet.Protect "lemotdepasse", True, True, True
End Sub

*But it applies to the whole sheet. I would like to apply it only on columns A:H.

Answer 1

Try this

Sub Protect()
    With ActiveSheet
        .Unprotect "lemotdepasse"
        .Range("A:H").AutoFilter
        .Protect "lemotdepasse", True, True, True
    End With
End Sub