Hallo,
was muss man doch eintragen, dass in der gesperrten Tabelle1
noch ein Platz z.B. D7:M10 frei bleibt und das dort der Cursor
funktioniert.
With Sheets("Tabelle1")
.EnableSelection = xlNoSelection
.Protect Password:="Andreas"
End With