Ich habe eine Makro geschrieben mit welchem sämtliche Tabellenblätter einer Arbeitsmappe geschützt bzw. auch wieder freigegeben werden können. Makro siehe nachstehend.
Sub Blätter_schützen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect Password:="test"
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Sub Blätterschutz_aufheben()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Unprotect Password:="test"
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
Nun aber kommt mein eigentliches Problem
Beim händischen Blattschutz habe ich die Möglichkeit, verschiedene Optionen zuzulassen, so z.B.
-) gesperrte Zellen auswählen
-) nicht gesperrte Zellen auswählen
-) Zellen formatieren
-) usw. ........
Vor dem ersten Schutz mit dem Makro habe ich sämtliche Blätter mit den gewünschten Optionen einmal händisch geschützt. Anschließend mit dem Makro den Schutz aufgehoben wieder geschützt, gespeichert usw. In den jeweiligen Tabellenblättern wurde das gewünschte Ergebnis (sprich die vorab händisch gewählten Optionen wurden schlagend) erzielt.
Wird nun jedoch die Tabelle geschlossen und anschließend wieder geöffnet, so werden die Schutzoptionen jedesmal auf "gesperrte Zellen auswählen" und "nicht gesperrte Zellen auswählen" (zurück)gesetzt.
Wer weis was zu tun ist, damit die einmal eingestellten Zelloptionen auch nach dem Schließen und neuerlichen Öffnen erhalten bleiben.
Derzeit würde es mir reichen, wenn das Makro so funktionieren würde, dass nur nicht gesperrte Zellen ausgeählt werden dürfen.
An einer Gesamtlösung wäre ich alledings schon interresiert.
Danke für Eure Unterstützung und
LG
Herbert