Hallo zusammen,
ich brauch – mal - wieder Eure Hilfe.

Mit Hilfe eines VBA Codes habe ich verschiedene Tabellenblätter mit einem Passwort geschützt:

Sub ws_Protect(ParamArray Tabellenblaetter())
Dim ws
For Each ws In Tabellenblaetter
Worksheets(ws).Protect Password:="passwort", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
True
Worksheets(ws).EnableSelection = xlUnlockedCells
Next ws
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Klappt auch, aber mir sind jetzt allerdings 2 Dinge aufgefallen, die ich gerne ändern möchte:
1. bei den gesperrten Blättern kann ich jetzt nicht zwischen den Zellen „springen“. D.h. wenn ich den Schreibschutz manuell eingebe (als nicht über ein VBA Code), dann habe ich ja die Möglichkeit „Auswählen gesperrter Zellen“ zu aktivieren. Dies wird allerdings durch den VBA Code aufgehoben.
Gibt es ein VBA Code womit ich „Auswählen gesperrter Zellen“ wieder ermöglichen kann ?

2. in den gesperrten -Tabellenblättern habe ich auch verschiedene Zeilen „gruppiert“. Durch den VBA Blattschutz kommt jetzt allerdings immer wieder die Meldung „Dieser Befehl kann für ein geschütztes Blatt nicht verwendet werden …“. Wie kann ich die Gruppierung wieder aktivieren ?

Kann mir einer helfen ?
Danke
Thorsten