AW: UserForm
17.01.2008 03:51:40
BJ
OK, hab ich nicht dran gedacht... ;o)
dann versuch ich´s mal einfach mit dem VBA:
Private Sub UserForm_QueryClose(Cabcel As Integer, CloseMOde As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
Private Sub Userform_Activate()
PassMaske.Caption = "Passwort Abfrage"
Label1 = "User"
Label2 = "Passwort"
CommandButton1.Caption = "OK"
CommandButton2.Caption = "Abbruch"
End Sub
Private Sub CommandButton1_Click()
Username = TextBox1.Value
Passwort = TextBox2.Value
If Username "" And Passwort "" Then
Namen = Username
Select Case Namen
Case Is = "User1"
PWort = "12345"
Case Is ="User2"
PWort = "99009"
End Select
If Username = Namen And Passwort = PWort Then
Schalter = True
Passabfr = True
Else
Schalter = False
Fehler = Fehler + 1
End If
Unload Me
MsgBox "Username oder Passwort sind falsch oder fehlen!", vbCritical, "Achtung"
End Sub
Private Sub CommandButton2_Click()
ActiveWorkbook.save
ActiveWorkbook.close
End Sub
So, das is´das VBA dazu, nur wie bereits geschildert, stimmt da was nicht, und ich find diesen BLÖDEN Fehler nich...
BJ