AYUDA EN PASSWORD Y FECHA DE CADUCIDAD

[GPOJIC]

Buen dia, espero me puedan ayudar
tengo un archivo que al abrir pone de manera automatica el usuario de la pc y pide la clave esa es la condicion para trabajar el archivo, sino se sabe el password...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Potter2K10]

para cerrar el libro puedes usar esto:
luego de esto usa.

MsgBox "EL USUARIO :" & USUARIO & Chr(13) & _
"ACCESO DENEGADO", 16, Title:="NO TIENE ACCESO"

ActiveWorkbook.Close SaveChanges:=False...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[GPOJIC]

Agradezco su ayuda me sirvio de maravilla, solo les pido apoyo para la fecha de caducidad

gracias

 

[Potter2K10]

Con eso podrias usar un codigo algo asi:

Dim exdate As Date
exdate = "12/01/2010"
If Date > exdate Then
msgbox ("La fecha de uso de esta aplicación expiro")
ThisWorkbook.Close...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[GPOJIC]

muchas por la ayuda mi pregunta es donde lo pongo (soy nuevo en esto) ya que actrualmente tengo esto desde "Thisworkbook"

Private Declare Function GetComputerName Lib "Kernel32" Alias...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí