ich möchte gerne mehrere Tabellenblätter per Makro mit einem Passwort schützen lassen. (Das Passwort soll bereits im Makro stehen.) Hierzu habe ich folgenden Code gefunden:
Sub Schutz()
Dim i As Long
For i = 1 To Sheets.Count
Sheets(i).Protect "123"
Next i
MsgBox "alle Blätter wurden geschützt"
End Sub
Nun möchte ich ein weiteres Makro, das den Blattschutz für alle Blätter wieder aufhebt - sofern das richtige Passwort eingetragen wurde. Hierzu habe ich auch einen Code gefunden, allerdings bekomme ich immer die Meldung "falsches Passwort", obwohl ich es korrekt eingebe. (Leider reichen meine Kenntnisse nicht aus um herauszufinden woran das liegt.) Hier der Code zum Aufheben:
Sub Aufheben()
Dim i As Long
Dim p1 As String
Dim p2 As String
p1 = InputBox("Bitte Passwort eingeben!", "Passworteingabe")
If p1 = "" Then
MsgBox "Kein Passwort eingegeben!" & vbLf & vbLf & "Blattschutz wird nicht nicht _
aufgehoben!"
Exit Sub
End If
On Error GoTo fehler
For i = 1 To Sheets.Count
Sheets(i).Unprotect p1
Next i
MsgBox "alle Blätter wurden entsperrt"
fehler:
If Err Then MsgBox "Falsches Passwort"
End Sub
Evtl. kann mir diesbezüglich jemand kurz helfen?
Beste Grüße
Thomas