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 „Danke, werde ich gleich testen... wenn der Schutz ohne Passwort stattfinden...“
Wenn ohne Passwort, dann leer lassen. Auch die Anführungszeichen weglassen.
Sheets(i).Protect
Möchtest Du das Kennwort statisch haben, dann folgenden Code
Sub BlattSchutzSetzen()
On Error GoTo 0
Dim s As String
Dim i As Integer
s = InputBox("Bitte Kernnwort eingeben")
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Protect s
Next i
End Sub
Sub BlattSchutzAufheben()
On Error GoTo Ende
Dim s As String
Dim i As Integer
s = InputBox("Bitte Kennwort eingeben")
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).Unprotect s
Next i
Ende:
End Sub
Ein kleines Addin kannst Du herunterladen: http://www.rholtz-office.de/Schutz.zip
Add-In wie gewohnt installieren. Dann kannst Du die Makros in allen Arbeitsmappen verwenden.
