Excel Blattschutz auf 180 Tabellenblättern

Computer: Software & Programmierung Office Software
1

Hi,

ich habe hier ein Excel-Dokument mit einem Blattschutz auf 180 Tabellenblättern. Ich muss jetzt etwas mit Suchen&Ersetzen austauschen. Das funktioniert aber nur, wenn ich den Blattschutz auf allen Seiten aufhebe. Ich möchte aber nicht jedes einzelne Tabellenblatt durchgehen und das machen. Gibt es dazu eine Methode um das zu machen? Ich brauche Hilfe :frowning:

Irgendwie muss das doch gehen… Der Blattschutz hat kein Kennwort.

Vielen Dank.

STEPHAN

2

Hey,

eigentlich ganz einfach:

Extras -> Makros -> VB Editor -> Modul erstellen -> Reinkopieren:

Sub tabelle_entsperren()

ActiveWorkbook.Unprotect
Dim ws
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect
Next ws

End Sub

Dann Extras -> Makros -> Ausführen -> tabelle_entsperren auswählen -> Ausführen klicken.

Fertig :smile:

Liebe Grüße

STEPHAN