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