Thema: Paßwortabfrage

Home

Abbildung - Paßwortabfrage

Prozedur:
Art: cmdOK_Click
Modul: Klassenmodul der UserForm
Zweck: Paßwortabfrage
Ablaufbeschreibung:
- Wenn der TextBox-Wert Paßwort lautet...
- Bestätigungsmeldung
- UserForm schließen
- Sonst...
- Negativmeldung
- Textfeld zurücksetzen
- Fokus auf Textfeld setzen

Code:


Private Sub cmdOK_Click()
  If txtPasswort.Text = "Paßwort" Then
    MsgBox "Alles klar!"
    Unload Me
  Else
    MsgBox "War wohl nix!"
    txtPasswort.Text = ""
    txtPasswort.SetFocus
  End If
End Sub