Blattschutz via VBA und Zelleingabe via Tabulator
Thomas
ich habe über ein Private Sub den Zellschutz für alle Worksheets aktiviert. Danach ist eine Eingabe in den ungeschützten Zellen zwar möglich, der Cursor springt nach der Eingabebestätigung aber immer in die Zelle O2 und muss dann manuell wieder in die nächste Zelle "zurückbewegt" werden. Gibt es eine Möglichkeit wie im Normalmodus nach der Eingabe via Enter automatisch in die Zelle darunter bzw. über Tabulator in die Zelle daneben zu gelangen?
Hier das private sub:
Private Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="test" 'Passwort anpassen
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub
Es liegt am Blattschutz, aber wenn ich den manuell rausnehme, springt der Cursor nach wie vor in die Zelle O2. Gibt es eine Möglichkeit Blattschutz via VBA und den normalen Eingabemodus im Sheet zu haben?