ich habe hier Arbeitsmappen mit zum Teil 30 Arbeitsblättern.
Gibt es in Excel 2003 eine Möglichkeit, den Blattschutz über ALLE Arbeitsblätter gleichzeitig zu setzen bzw. zu entfernen?
(sicher nur in VBA? - da bin ich nicht so fit!!)
Danke
mumpel1 
Triology61 „Excel 2003 Blattschutz über mehrere Arbeitsblätter“
Hallo!
Zuerst einmal solltest Du an Deinem Postingstil arbeiten. Zur Eröffnung eines Threads ein freundliches Hallo und einen Schlußgruß. Das erhöht die Chance auf eine Antwort.
Mit diesen Makros geht das. Alle Tabellen erhalten dann das selbe Kennwort. Bei "Passwort" muss Dein Paßwort, in Anführungszeichen.
Sub BlattSchutzSetzen()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "Passwort"
Next i
End Sub
Sub BlattSchutzAufheben()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Unprotect "Passwort"
Next i
End Sub
Gruß, Mumpel
