Private Sub Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim Zeile As Integer
Dim Vuelve As String
Range("A2:E100").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'----------------------------------
Zeile = Cells(Rows.Count, 2).End(xlUp).Row
Vuelve = "A" & Zeile + 1 & ":A" & Zeile + 1
Range(Vuelve).Select
Protect
End Sub

Danke Sara