Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static old As Range
If Not old Is Nothing Then
old.Interior.ColorIndex = xlColorIndexNone
End If
Set old = Target
Target.Interior.ColorIndex = 3
End Sub
Private Sub Workbook_Open()
Sheets("Tabelle1").Protect Password:="123", Userinterfaceonly:=True
End Sub