Macro para cambia clave de inicio de sesión

DAM, necesito de su ayuda en esta oportunidad para completar la siguiente macro:

Option Explicit

Private Sub cambiar_password_Click()
Dim cambiar As Boolean
Dim i As Integer
' If Me.nombre = "" Or Me.clave = "" Then
' MsgBox "Debe Escribir el usuario o clave actual", vbExclamation
' Exit Sub
' End If
For i = 1 To 10
If Me.nombre = CStr(Hoja14.Cells(i, 1)) And Me.clave = CStr(Hoja14.Cells(i, 2)) Then
cambiar = True
Hoja14.Cells(i, 2).Value = Me.repita.Text
MsgBox "LA CLAVE A SIDO CAMBIADA SATISFACTORIAMENTE", vbInformation
'Unload Me
End If
Next
End Sub

La anterior macro me funciona perfectamente, solo que necesito que me ayudes en agregar las instrucciones necesarias para controlar los errores probables; cuando el usuario se equivoca en nombre de usuario o contraseña, cuando los omite y que dichos mensajes sean plasmados en unos MsgBox.

De antemano muchas gracias y quedo pendiente si requieres de algún otro dato.

Saludos

1 Respuesta

Respuesta
1

Prueba lo siguiente:

Private Sub cambiar_password_Click()
'mod.por.DAM
Dim cambiar As Boolean
Dim i As Integer
If Me.nombre = "" Then
    MsgBox "Debe Escribir el usuario", vbCritical, "CAMBIO DE PASSWORD"
    Exit Sub
End If
If Me.clave = "" Then
    MsgBox "Debe Escribir la clave", vbCritical, "CAMBIO DE PASSWORD"
    Exit Sub
End If
If Me.repita = "" Then
    MsgBox "Debe Escribir la Nueva clave", vbCritical, "CAMBIO DE PASSWORD"
    Exit Sub
End If
If Me.clave = Me.repita Then
    MsgBox "Debe escribir una clave nueva diferente a la actual", vbCritical, "CAMBIO DE PASSWORD"
    Exit Sub
End If
cambiar = False
wnom = False
For i = 1 To 10
    If Me.nombre = CStr(Hoja14.Cells(i, 1)) Then
        wnom = True
        If Me.clave = CStr(Hoja14.Cells(i, 2)) Then
            cambiar = True
            Hoja14.Cells(i, 2).Value = Me.repita.Text
            MsgBox "LA CLAVE A SIDO CAMBIADA SATISFACTORIAMENTE", vbInformation
            'Unload Me
        End If
    End If
Next
If wnom = True Then
    If cambiar = False Then
        MsgBox "La clave no es correcta", vbCritical, "CAMBIO DE PASSWORD"
    End If
Else
    MsgBox "El usuario no existe", vbCritical, "CAMBIO DE PASSWORD"
End If
End Sub

Saludos. DAM

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas