Excel - Contraseñas en MACROS

   
Vista:

Contraseñas en MACROS

Publicado por YessicaRebolledo (20 intervenciones) el 04/05/2008 23:29:48
Buenas Tardes yo tengo este codigo , la cual me compara 2 celdas:
Sheets("Seguridad").Select
n = 5
fila = A + CStr(n)
Range("a5").Select
Do While ActiveCell.FormulaR1C1 <> ""
If Text1 = ActiveCell.FormulaR1C1 Then
fila = "b" + CStr(n)
Range("b5").Select
If Text2 = ActiveCell.FormulaR1C1 Then
Unload UserForm1
UserForm7.Show


End If
End If

n = n + 1
fila = "a" + CStr(n)
Range("a5").Select
Loop
c = c + 1
ActiveCell.Offset(1, 0).Select
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
OK si el usuario no coloca los mismo codigo q c encuentran en las celdas me DA ERROR.
Por eso acudo a Uds. para q me ayuden en este caso. ¿ Quisiera Saber como hago para q cuando el usuario inserte un codigo mal escrito aparezca algo como intente de nuevo a algo parecido.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Contraseñas en MACROS

Publicado por Pablois (2 intervenciones) el 18/11/2011 20:07:44
con el siguiente codigo

on error goto ETIQUETA
ETIQUETA: msg 'Contraseña incorrecta'
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar