AW: Blattschutz
15.05.2006 09:38:47
Matthias
Hallo Martina,
Das kannst du mit diesem Makro machen:
Sub BlattschutzAlle()
Dim pw As String
Dim sh As Worksheet
pw = InputBox("Passwort:", "Blätter schützen")
If InputBox("Bestätigung:", "Blätter schützen") <> pw Then
MsgBox "Passwörter waren nicht identisch!", vbCritical, "Abbruch"
Exit Sub
End If
For Each sh In ActiveWorkbook.Worksheets
sh.Protect Password:=pw
Next sh
End Sub
Und zum Schutz aufheben aller Blääter:
Sub BlattschutzAlleAus()
Dim pw As String
Dim sh As Worksheet
pw = InputBox("Passwort:", "Blattschutz aufheben")
For Each sh In ActiveWorkbook.Worksheets
sh.Unprotect Password:=pw
Next sh
End Sub
in Excel Alt+F11, dann im VB-Editor Menü Einfügen, Modul. Ins erscheinende Fenster den Code kopieren.
Viel Glück,
Matthias