Validar y actualizar la contraseña en hoja excel
Es una pregunta para Dante Amor
Hola
Necesitaría poder validar la contraseña existente para poder luego actualizarla, es decir cambiarla por otra y que ésta última sea la válida a partir de ahora.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código
'
Private Sub CommandButton2_Click()
'Por.Dante Amor
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "Debes Capturar tu usuario y password actuales", vbCritical, "ERROR"
TextBox1.SetFocus
Exit Sub
End If
'
If TextBox3 = "" Or TextBox4 = "" Then
MsgBox "Debes Capturar nueva contraseña y repetir tu nueva contraseña", vbCritical, "ERROR"
TextBox3.SetFocus
Exit Sub
End If
'
If TextBox3 <> TextBox4 Then
MsgBox "La nueva contraseña y la confirmación de la contraseña no son iguales", vbCritical, "ERROR"
TextBox3.SetFocus
Exit Sub
End If
'
If TextBox3 = TextBox2 Then
MsgBox "La nueva contraseña y la actual deben ser diferentes", vbCritical, "ERROR"
TextBox3.SetFocus
Exit Sub
End If
'
Set h5 = Sheets("USUARIOS")
Set b = h5.Columns("A").Find(TextBox1, lookat:=xlWhole)
If Not b Is Nothing Then
If h5.Cells(b.Row, "B") = TextBox2 Then
h5.Cells(b.Row, "B") = TextBox3
MsgBox "Contraseña cambiada con éxito", vbInformation, "CAMBIAR CONTRASEÑA"
TextBox3 = ""
TextBox4 = ""
TextBox3.Enabled = False
TextBox4.Enabled = False
CommandButton2.Enabled = False
TextBox1.SetFocus
TextBox2 = ""
Else
MsgBox "La contraseña actual no es correcta"
TextBox2.SetFocus
End If
Else
MsgBox "Usuario incorrecto"
TextBox1.SetFocus
End If
End SubS a l u d os
