Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

   ActiveSheet.Unprotect

   ' einblenden:

   ActiveWindow.DisplayHeadings = True

Else

   ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

   ' ausblenden:

   ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

Answer 1

[daCypher]

Du meinst wahrscheinlich, dass die Zeilen- und Spaltenüberschriften nicht wieder eingeblendet werden, wenn man das Passwort nicht eingegeben hat, oder?

Bau einfach nach dem "ActiveSheet.Unprotect" nochmal eine Prüfung ein, ob es geklappt hat:

Private Sub CommandButton1_Click()
If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbNo Then
    Exit Sub
End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect
    If ActiveSheet.ProtectContents = False Then
        ActiveWindow.DisplayHeadings = True
    End If
Else
    ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True
    ActiveWindow.DisplayHeadings = False
End If

Exit Sub

PW:

MsgBox "Falsches Passwort"
End Sub

Answer 2

[Suboptimierer]

Bei mir funktioniert der Code genau so, wie du ihn gepostet hast.

Wenn ich den Dialog mit X verlasse, entspricht das Abbrechen.

Woher ich das weiß: Berufserfahrung – Programmierer