Password con macros
Te comento que el código del password esta excelente, pero me empezó a salir ¿desea guardar los cambios efectuados en almacen 2012?, me podrías decir que paso?........
1 Respuesta
Respuesta de snaki Fco
1
¿En qué momento te aparece eso?
en el momento de abrir el libro, pongo una contraseña incorrecta y debería cerrarse es en ese instante que aparece el anuncio ese...................
Ok, ya te entendí
Mira modifícalo así
Private Sub Workbook_Open()
clave = InputBox("Ingrese Clave", "Password", "************")
If clave = 2536 Then
MsgBox "Bienvenido"
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
Mira modifícalo así
Private Sub Workbook_Open()
clave = InputBox("Ingrese Clave", "Password", "************")
If clave = 2536 Then
MsgBox "Bienvenido"
Else
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
