Hallo Excelforum, mit nachfolgendem Code frage ich das PW über eine Userform für den Blattschutz ab, was auch funktioniert. Aber wie frage ich eine falsche Eingabe des PW's ab ? Jetzt frage ich das PW "pes" hart ab. Da gibt's doch bestimmt einen Rückgabewert bei falschen PW, der dann abgefragt werden kann und dann soll "Exit Sub" folgen.
Kann mir da bitte jemand helfen.
Besten Dank schon mal.
Gruß Peter
Sub PW_Uebernehmen()
Dim passw As String
Abbruch = False
Passwortabfrage.Show
passw = pw
' MsgBox "Passwort: " & passw
Sheets("Umsatzaufstellung").Select
Range("A4").Select
If pw "pes" Then
MsgBox "PW falsch !!"
Exit Sub
End If
' Blattschutz über PW aus Userform entfernen
Sheets("Umsatzaufstellung").Protect Password:=pw, DrawingObjects:=False, Contents:=False, Scenarios:=False
'Hier soll bei falschem PW der Exit Sub erfolgen
If Abbruch = True Then
MsgBox "Passwortabfrage wurde abgebrochen !"
Exit Sub
Else
MsgBox "Alles klar, es geht weiter !"
Exit Sub
End If