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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen