Blattschutz
31.05.2005 15:57:11
Gerhard
ich habe da noch ein Problem.
Durch das folgende VBA-Makro werden alle Tabellenfelder so geschützt, dass nur noch die Felder ausgewählt werden können, bei denen vorher der Schutz entfernt wurde. Alle geschützten Felder können nicht mehr angeklickt werden.
Private Sub Workbook_Open()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.Select
Sh.Protect UserInterfaceOnly:=True
Sh.EnableSelection = xlUnlockedCells
Sheets("Januar").Select
Next
End Sub
Leider hat das Makro einen entscheidenden Nachteil. Entweder befindet man sich beim Öffnen der Tabelle immer im ersten Tabellenblatt "Januar" oder wenn ich die Zeile "Sheets("Januar").Select" entferne, befindet man sich beim Öffnen immer im letzten Tabellenblatt.
Gibt es eine Möglichkeit, das Makro so abzuändern, dass es immer an das zuletzt ausgewählte Feld springt?