Gleiches Passwort für mehrere Blätter über Abfragebox
16.01.2024 19:08:12
Christoph B.
Ich habe eine Mappe (sind einige :) ) erstellt, die eine sich ändernde Anzahl von Blättern enthalten. Alle Blätter sind mit dem gleichen PW geschützt.
Bei Änderungsbedarf über mehrere Blätter muss ich aufwändig den PW-Schutz rauasnehmen und danach wieder reinhacken. Das verkürze ich derzeit mit diesen zwei Makros:
Sub schütz()
'alle Blätter schützen
'
' Tastenkombination: Strg+w
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect Password:="Passwort"
Next ws
End Sub
Sub unschütz()
'
' unschütz Makro
' Entsperren aller Blattschutze
'
' Tastenkombination: Strg+q
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect Password:="Passwort"
Next ws
End SubDie PW sind für jede der Mappen (sind mehrere) verscheiden.
Die Makros funktionieren sehr gut, haben aber den Nachteil, dass ich beim Bearbeiten mehrerer Mappen zugleich, mich schonmal verhaue und einen PW-Schutz in eine Mappe eintrage, der ein PW enthält, das ich aus der vorausgegangenen Makro-Nutzung eingetragen hatte.
Das kann mal viel Arbeit nach sich ziehen beim entknoten falscher PW :)
Was ich suche:
Ein Makro, das beim Auslösen (mit einem Tastaturkürzel, aber das kann ich dann selbst auswählen, bei den Eigenschaften) eine Box öffnet die abfragt, ob ich schützen oder Schutz aufheben will und welches PW dazu genutzt werden soll. Das Makro soll auf alle Tabellenblätter wirken (wie die Beispiele oben)
Ihr habt mir schonmal super geholfen, daher freue ich mich auf die Lösungsvorschläge oder gar Lösungen. Meine Recherche im Formu gibt immer über 300 Treffer und alle bisher gelesenen lösen mein Problem nicht.
Danke vorweg!
Liebe Grüße!