Benutzerpasswörter ändern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub pass() Nutzer = InputBox("Nutzername") With Worksheets("Tabelle1") For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(i, 2) = Nutzer Then S1: PasswortAlt1 = InputBox("Pass Alt 1") PasswortAlt2 = InputBox("Pass Alt 2") If PasswortAlt1 = PasswortAlt2 And PasswortAlt1 = .Cells(i, 3).Value Then S2: PassNeu1 = InputBox("Pass Neu 1") PassNeu2 = InputBox("Pass Neu 2") If PassNeu1 = PassNeu2 Then .Cells(i, 3).Value = PassNeu1 Else MsgBox "neues Passwort nicht identisch" GoTo S2 End If Else MsgBox "Passwort ungültig" GoTo S1 End If Else MsgBox "Kein gültiger Nutzer" Exit Sub End If Next i End With End Sub

Private Sub cmd_ändern_Click() Nutzer = txt_name With Worksheets("User_aktuell") For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row If .Cells(i, 2) = Nutzer Then S1: PasswortAlt1 = txt_passwortalt PasswortAlt2 = txt_passwortaltwiederholen If PasswortAlt1 = PasswortAlt2 And PasswortAlt1 = .Cells(i, 3).Value Then S2: PassNeu1 = txt_passwortneu PassNeu2 = txt_passwortneuwiederholen If PassNeu1 = PassNeu2 Then .Cells(i, 3).Value = PassNeu1 Else MsgBox "neues Passwort nicht identisch" GoTo S2 End If Else MsgBox "Passwort ungültig" GoTo S1 End If Else MsgBox "Kein gültiger Nutzer" Exit Sub End If Next i End With End Sub

Aber wenn die msgbox "Passwort nicht identisch" aufscheint, weil man die Passwörter falsch eingegeben hat, dann lässt sich diese nicht mehr schließen weil das ja dann eigentlich eine endlose Schleife wäre

Private Sub cmd_ändern_Click() iPwNr = Application.Match(sName, Sheets("Tabelle1").Range("C1:C10"), 0) sPwVorhanden = Sheets("Tabelle1").Range("C" & iPwNr).Value If sPwAlt1 = sPwAlt2 And sPwNeu1 = sPwNeu2 Then Sheets("Tabelle1").Range("C" & iPwNr).Value = sPwNeu1 End If Unload Me End Sub

Private Sub cmd_ändern_Click() Dim zeile As Integer iPwNr = Application.Match(sName, Sheets("User_aktuell").Range("C1:C10"), 0) sPwVorhanden = Sheets("User_aktuell").Range("C" & iPwNr).Value If sPwAlt1 = sPwAlt2 And sPwNeu1 = sPwNeu2 Then Sheets("User_aktuell").Range("C" & iPwNr).Value = sPwNeu1 Else: MsgBox ("Passwörter stimmen nicht überein!") End If Unload Me End Sub

Private Sub cmd_ändern_Click() On Error GoTo WrongName iPwNr = Application.Match(sName, Sheets("Tabelle1").Range("C1:C10"), 0) sPwVorhanden = Sheets("Tabelle1").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("Tabelle1").Range("C" & iPwNr).Value = sPwNeu1 End If Unload Me GoTo ende WrongName: MsgBox "Falscher Benutzername!", vbCritical, "Benutzername falsch" ende: End Sub

Private Sub cmd_ändern_Click() On Error GoTo ende iPwNr = Application.Match(sName, Sheets("Tabelle1").Range("C1:C10"), 0) sPwVorhanden = Sheets("Tabelle1").Range("C" & iPwNr).Value 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("Tabelle1").Range("C" & iPwNr).Value = sPwNeu1 End If Unload Me ende: End Sub

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

Beliebteste Forumthreads (12 Monate)

33 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

33
Beiträge zum Forumthread

Beiträge zu diesem Forumthread