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
Triology61 mumpel1 „Hallo! Zuerst einmal solltest Du an Deinem Postingstil arbeiten. Zur Eröffnung...“
Danke, werde ich gleich testen...
wenn der Schutz ohne Passwort stattfinden soll, dann ""? oder ein Leerzeichen?
schönen Tag noch
cu Triology
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.
