ich habe 3 Sheets in einer Datei.
Das erste ist zur Eingabe der Daten durch den User. Das 2. und 3. sind unterschiedliche Formulare, in die die Daten aus dem ersten Sheet per Makro übertagen werden.
Alle 3 Sheets werden per .Unportect / .Protect entsperrt bzw. wieder gesperrt, so dass die User keine Fehleingaben machen können.
Es sind also auf allen 3 Sheets sowohl gesperrte wie auch offene Zellen vorhanden.
Auf Sheet 2 und 3 funktioniert dies einwandfrei. Auch nach dem das Makro gelaufen ist, sind die Zellen wie vorher gesperrt / offen.
Auf Sheet 1 funktioniert es so, dass Zellen die vorher offen waren nach der Ausführung des Makos und somit dem Sperren des Sheets teilweise gesperrt sind. Komisch dabei ist, dass es eben nicht alle Zellen sperrt.
Zu den dann gesperrten Zellen ist in "Zellen formatieren - Schutz" die Checkbox "Gesperrt" dann schwarz gefüllt.
Das Sperren der Sheets erfolgt so:
With Sheets("Sheet1")
.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=False, AllowFormattingColumns:=False, _
AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=False
End With
With Sheets("Sheet2")
.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True, AllowFormattingCells:=False, AllowFormattingColumns:=False, _
AllowFormattingRows:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=False, _
AllowSorting:=False, AllowFiltering:=False, AllowUsingPivotTables:=False
End With
With Sheets("Sheet1")
.EnableSelection = xlUnlockedCells
.Protect Password:="QM", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
With Sheets("Sheet2")
.EnableSelection = xlUnlockedCells
.Protect Password:="QM", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Das Ergebnis auf Sheet1 ist immer das gleiche. Also, immer die gleichen, ungewollt gesperrte Zellen.
Sollte das am Sheet selber liegen?
Herzlichen Dank für eure Tips im Voraus
Thomas