Auto sort on a protected sheet

And a Happy Holidays to you...

Based on your sample...

Right click sheet tab and paste on right side of screen

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim srcSht As Worksheet: Set srcSht = Sheets("Sheet1")
    Dim LR As Long: LR = Range("A" & Rows.Count).End(xlUp).Row
    Set rng = Range("A5:C" & LR)
    Application.ScreenUpdating = False
    srcSht.Unprotect Password:="password"
    With srcSht.Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("B6:B" & LR), _
                    SortOn:=xlSortOnValues, _
                    Order:=xlAscending, _
                    DataOption:=xlSortNormal
    .SetRange rng
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    Application.ScreenUpdating = True
    srcSht.Protect Password:="password"
End Sub

You are very welcome and same to you Luis.