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