Kontrollkästchen nach Aktivieren mit Password schützen!?

[J.D]

Hi Forum,

ich möchte wenn ein Kontrollkästchen aktiviert wurde das deaktivieren mit einem Password schützen...

Code [Auswählen] Erweitern

Private Sub LOOCKED_Click()
If Me.LOOCKED.Value = -1 Then
Me.Deatils.Enabled = False
Me!Details.Form.AllowEdits = False
Me!Details.Form.AllowAdditions = False
Else
------- Hier soll dann die Password abfrage... ------
Me.Deatils.Enabled = True
Me!Details.Form.AllowEdits = True
Me!Details.Form.AllowAdditions = True
End If
End Sub
bisher sind alle versuche kläglich gescheitert weil

Code [Auswählen] Erweitern

Private Sub LOOCKED_Click()
Dim passwort As String
If Me.LOOCKED.Value = -1 Then
Me.Deatils.Enabled = False
Me!Details.Form.AllowEdits = False
Me!Details.Form.AllowAdditions = False
Else
passwort = InputBox("Sifre!")
If passwort = "unlock" Then
Me.Deatils.Enabled = True
Me!Details.Form.AllowEdits = True
Me!Details.Form.AllowAdditions = True
Else MsgBox ("Yanlis!")
End If
End If
End Sub
da fehlt mir gerade bissel die logik

Grüsse JD

[J.D]

Ok,

hab es hin bekommen

Code [Auswählen] Erweitern

Private Sub LOOCKED_Click()
If Me.LOOCKED.Value = -1 Then
Me.Details.Enabled = False
Me!Details.Form.AllowEdits = False
Me!Details.Form.AllowAdditions = False
Else
passwort = InputBox("Sifre!")
If passwort = "unlock" Then
Me.Details.Enabled = True
Me!Details.Form.AllowEdits = True
Me!Details.Form.AllowAdditions = True
Else: MsgBox ("Yanlis!")
End If
End If
End Sub
Grüsse JD

[MzKlMu]

Hallo,
dass hier Groß und Kleinschriebung nicht beachtet wird ist Dir klar ?

[J.D]

ich kann alles kleinschreiben?

grüsse JD

[MzKlMu]

Hallo,
Du kannst das Passwort schreiben wie du willst, groß, klein, gemischt, wird immer als richtig erkannt (wenn es stimmt).

[PhilS]

Du kannst das Passwort schreiben wie du willst, groß, klein, gemischt, wird immer als richtig erkannt (wenn es stimmt).

Wenn man das nicht möchte, kann man für den Vergleich die StrComp-Funktion mit der VbCompareMethod.vbBinaryCompare verwenden.

[J.D]

aso, ja danke... gut zu wissen

grüsse JD