VBA Passwortschutz von Button funktioniert nicht

Fuchsei

Mitglied
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:

Visual Basic:
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:D
 
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
 
Zurück