No puedo generar que caduque el archivo
Copie todo que es para la macro y en realidad no sale me sale resaltando Private Sub Workbook_Open() y MsgBox "La fecha máxima de uso ya se cumplió, el archivo se cerrará",
en realidad no se por que no da si se supone que solo se copia
1 Respuesta
Prueba con esta solución. Con esta macro el archivo caduca el día 16/11/2012 y a partir de se día no se podrá trabajar con él ya que se cerrará automáticamente nada más abrirlo.
Para probarlo, evidentemente, tienes que pegar la macro dentro del objeto ThisWorkbook, grabar el archivo, cerrarlo y volverlo a abrir
Private Sub Workbook_Open() If Date = "16/11/2012" Then MsgBox "El archivo ha caducado" ActiveWorkbook.Close False End If End Sub
no olvides finalizar la consulta
me encantaría que me mandes un archivo de excel como ejemplo ya con la macro para poder entender mejor
Siento la demora pero estoy muy ocupado
Dime tu mail y te lo mando
me encantaría que me lo mandes mi correo es [email protected] gracias de todas maneras
En el siguiente enlace te dejo un archivo con la macro programada para caducar el día 29/12/2012
http://share.cx.com/VWmPzz
Para su posterior modificación y visualización de la macro tendrás que deshabilitar las macros para que al abrirlo no salte la macro automáticamente.
No olvides finalizar la consulta
