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
Hallo Andreas,
.EnableSelection = xlUnlockedCells
Wenn die Zellen "entsperrt" wurden.
Gruß Matthias
AW: Markieren und sperren
23.09.2006 16:04:33
00011011
Probier es mal mit
Sheets("Tabelle1").Range("D7:M10").Select
Selection.Locked = False
With Sheets("Tabelle1")
.EnableSelection = xlNoSelection
.Protect Password:="Andreas"
End With