Hallo, ich habe bezüglich eines Makros ein Problem. Es ist eine Arbeitsmappe mit 12 Blättern, jeweils eins pro Monat. Ich habe ein Makro, damit ich auf allen Blättern den Blattschutz gleichzeitig ausschalten kann. Das Makro funktioniert, allerdings springt Excel nach richtiger Passworteingabe immer auf das Tabellenblatt November. Ich bin in VBA nicht so bewandert und vielleicht kann mir einer von euch Profis die richtige Lösung verraten.

Ich danke schon mal im Voraus.

Sub Blattschutzaus_alleBlätter()

Dim varEingabe As Variant
Do
varEingabe = Application.InputBox("Bitte das PW eingeben", "Passwortabfrage")
If varEingabe = False Then Exit Sub
If varEingabe = "+++++++" Then
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Unprotect "Passwort"
Next
Else
MsgBox "Falsches PW"
End If
Loop While varEingabe > "+++++++"
End Sub