allow automatic sort & formatting in unprotected sheet

[milt2010]

Hi!
I have this code:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect  userinterfaceonly:=True, Password:="", AllowSorting:=True,  AllowFiltering:=True, AllowFormattingColumns:=True
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
    On Error Resume Next
    If Not Intersect(Target, Range("B4:N300")) Is Nothing Then
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
        Sheets("List").Columns("B:N").AutoFit
    End If
    On Error GoTo 0
End Sub

What I would do would be to keep the autosort and autoformat and disable (or completely remove from the code), the automatic protection. In other words, disable or remove ONLY the auto lock from code and mantain all the other functions.

Thanks in advance!