für alle Tabellenblätter einer Arbeitsmappe den Blattschutz setzen bzw. entfernen

Mit normalen Menübefehlen ist es nicht möglich, für mehrere Tabellenblätter einer Datei gleichzeitg den Blattschutz zu setzen bzw. zu entfernen.

Die beiden nachstehenden kurzen Makros schaffen da schnelle Abhilfe.

Blattschutz raus Sub schutz_raus() Dim i As Long For i = 1 To ActiveWorkbook.Sheets.Count Sheets(i).Unprotect Password:="Geheim" Next End Sub

Blattschutz rein Sub schutz_rein() Dim i As Long For i = 1 To ActiveWorkbook.Sheets.Count Sheets(i).Protect Password:="Geheim" Next End Sub

Um der Frage vorzubeugen – dies kann natürlich nicht funktionieren, wenn die einzelnen Tabellenblätter unterschiedliche Passwörter haben!

 Share on Facebook

Read more http://vba-codeschnipsel.de/fur-alle-tabellenblatter-einer-arbeitsmappe-den-blattschutz-setzen-bzw-entfernen/