@Uduuh
02.07.2004 08:53:06
Susanne
Ich hatte gestern um 12:07 Uhr einen Beitrag ("Cursorrichtung festlegen") veröffentlicht.
Dein Tip funktioniert super!
Ich habe nur noch ein kleines Problem:
Zusätzlich brauche ich noch diese Details im Code, um nur die nichtgesperrten Zellen anklicken zu können:
Private Sub Workbook_Open()
Sheets("MeinBlatt").EnableSelection = xlUnlockedCells
Sheets("MeinBlatt").Protect contents:=True
End Sub
Füge ich das hinzu, klappt es nicht mehr... Wie muss ich das denn hier noch anfügen? Vielleicht füge ich es auch an der falschen Stelle ein?
Hier nochmal der Code, bei dem es angefügt werden muss:
Private Sub Workbook_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = Sheets("var").Cells(1, 1)
End Sub
Private Sub Workbook_Deactivate()
Application.MoveAfterReturnDirection = Sheets("var").Cells(1, 1)
End Sub
Private Sub Workbook_Open()
Sheets("Var").Cells(1, 1) = Application.MoveAfterReturnDirection
Application.MoveAfterReturnDirection = xlToRight
Sheets("Var").Visible = xlSheetVeryHidden
End Sub
Hoffe, du kannst mir helfen.
Gruß und Danke
Susanne