Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Cerrar un libro si no es correcto

05/12/2005 - 17:58 por Omar Mosqueda | Informe spam
Ayuda Hacer una pregunta
Necesito que se cierre el libro si lña clave de acceso no es correcta
Sub Auto_Open()
'
' Entrar Macro
' Macro grabada el 03/12/2005 por omosqued
'

If InputBox("Bienvenido, Por favor teclea tu clave de acceso", "Acceso ") =
"omar" Then
Load UserForm1
UserForm1.Show
Else
MsgBox "La clave es incorrecta !!!", , "Error": Exit Sub
Worksheets("hoja1").Activate

End If
End Sub

donde debe de ir el auto_close()

saludos y gracias
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
05/12/2005 - 19:47 | Informe spam
Hola Omar,

Prueba lo siguiente (no es necesario ningun Auto_Close):

Sub Auto_Open()
If InputBox( _
"Bienvenido, Por favor teclea tu clave de acceso", _
"Acceso ") = "omar" Then
UserForm1.Show
Else
MsgBox "La clave es incorrecta !!!", , "Error"
ThisWorkbook.Close False
End If
End Sub

Saludos,
KL

Preguntas similares

 

Busqueda sugerida :