✔ VBA Passwortschutz von Button funktioniert nicht

[Fuchsei]

Hi User,

Ich habe einen Button in einem Formular denn ich mit einen Passwort belegen will, bei richtiger Eingabe soll er einen Filter von mir deaktivieren.

Der Code:

Private Sub deaktivieren_Click()
If Inputbox ("Passwort eingeben")<> "MeinPasswort" Then
MsgBox("Keine Berechtigung")
Else: Me.FilterOn=False
         myCriteria= ""
End Sub

Leider funktioniert das ganze nicht. Ich vermute da ist was mit dem Else-Teil nicht in Ordnung. Wie kann ich angeben das dann den Teil ab Me.Filter bei richtiger Eingabe des PW ausgeführ wird . Wer kann mir bei dem Problem helfen?

Fuchsei

 

[Yaslaw]

item: Me.FilterOn... ist das MS Access oder VB6?

item: ein END IF fehlt.

item: Mach doch mal zum Test eine MsgBox() in den else-Teil rein

 

[Fuchsei]

Danke dir. End if wars, sorry bin heut anscheinend nicht bei der Sache.

Fuchsei