letzte Hilfe!

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A6:F6"), Target) Is Nothing Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
Target.Offset(0, 1).Select
Exit Sub
'Blattschutz aufheben
ActiveSheet.Unprotect
Else
If Target.Column = 5 Then
If Target.Value = "U" Then
Target.EntireRow.Hidden = True
'Blattschutz aktivieren
With ActiveSheet
.EnableAutoFilter = True
.Protect userinterfaceonly:=True
End With
Exit Sub
End If
End If
End If
End If
End Sub