Cerrar un libro si no es correcto

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

Saludos:

¿que tal cerrar sin confirmar en caso de que la pass sea incorrecta?

podria intentar adaptar algo asi;

Si queremos cerrar un libro sin confirmar acerca de guardar o no los
cambios realizados:
'cierra el libro activo sin salvar cambios

Sub CerrarSinGuardad()
ActiveWorkbook.Close False
End Sub

asi se cerraria el libro, es decir que cuando la clave sea incorrecta se
forza la salida.

Gabriel Raigosa


"Omar Mosqueda" escribió en el mensaje
news:OgsJG0b%

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