Kann ich bei ca. 80 Tabellen den Blattschutz mit ein paar Mausklicks(oder ähnlich) aufheben oder wieder schützen.
Danke im Voraus HG
Sub Passwort_EIN()
For Each sh In Sheets
sh.Protect Password = "EIN"
Next sh
End Sub
Sub Passwort_AUS()
For Each sh In Sheets
sh.Unprotect Password = "EIN"
Next sh
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen