HERBERS Excel-Forum - die Dialoge

Thema: Pa▀wortabfrage

Home
Abbildung - Pa▀wortabfrage
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