AW: So kann man es aufbauen
27.06.2015 20:42:39
sabrina
Hallo :)
Kannst du mir sagen wo da noch der Wurm drinnen ist?
Option Explicit
Public sPwVorhanden$, iPwNr%, sPwAlt1$, sPwAlt2$, sPwNeu1$, sPwNeu2$, sName$
Private Sub cmd_abbrechen_Click()
Unload Me
adminmenue.Show
End Sub
Private Sub cmd_ändern_Click()
On Error GoTo WrongName
iPwNr = Application.Match(sName, Sheets("User_aktuell").Range("C1:C10"), 0)
sPwVorhanden = Sheets("User_aktuell").Range("C" & iPwNr).Value
On Error GoTo ende
If sPwAlt1 <> sPwAlt2 Then
MsgBox "Die beiden alten Passwörter stimmem nicht überein!", vbCritical, "Passwort falsch" _
_
GoTo ende
End If
If sPwNeu1 <> sPwNeu2 Then
MsgBox "Die beiden neuen Passwörter stimmem nicht überein!", vbCritical, "Passwort falsch" _
_
GoTo ende
End If
If sPwAlt1 = sPwAlt2 And sPwNeu1 = sPwNeu2 Then
Sheets("User_aktuell").Range("C" & iPwNr).Value = sPwNeu1
Sheets("User_Original").Range("C" & iPwNr).Value = sPwNeu1
End If
Unload Me
GoTo ende
WrongName:
MsgBox "Falscher Benutzername!", vbCritical, "Benutzername falsch"
ende:
End Sub
Private Sub txt_name_Change()
sName = txt_name.Text
End Sub
Private Sub txt_passwortalt_Change()
sPwAlt1 = txt_passwortalt.Text
Me.txt_passwortalt.PasswordChar = "*"
End Sub
Private Sub txt_passwortaltwiederholen_Change()
sPwAlt2 = txt_passwortaltwiederholen.Text
Me.txt_passwortaltwiederholen.PasswordChar = "*"
End Sub
Private Sub txt_passwortneu_Change()
sPwNeu1 = txt_passwortneu.Text
Me.txt_passwortneu.PasswordChar = "*"
End Sub
Private Sub txt_passwortneuwiederholen_Change()
sPwNeu2 = txt_passwortneuwiederholen.Text
Me.txt_passwortneuwiederholen.PasswordChar = "*"
End Sub
Lg