Preciso desproteger uma planilha sempre que alguma célula da coluna N for selecionada.

Estou usando a macro abaixo, porém, não está funcionando. Alguém poderia me ajudar?

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "N:N" Then ActiveSheet.Unprotect Password:="1234"
    
    If Intersect(Target, Range("N:N")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

    Application.EnableEvents = False
ActiveSheet.AutoFilter.ApplyFilter
    With ActiveWorkbook.Worksheets("Priorização").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.EnableEvents = True
  
    
    Protect Password:="1234", UserInterfaceOnly:=True
End Sub