............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro fecha de caducidad a un libro de Excel

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro fecha de caducidad a un libro de Excel

Mensaje por 6luishao6 el Vie Mayo 13, 2016 9:11 pm

Hola a tod@s mi pregunta es la siguiente:
Quiero poner caducidad a un libro de Excel una fecha en donde se caduque y no puedan acceder al libro.
Estuve buscando una macro y pille esta:

Private Sub Workbook_Open()
Dim FechaCaducidad As Date

FechaCaducidad = #5/14/2016#

If FechaCaducidad > Date Then
MsgBox "Faltan " & FechaCaducidad - Date & " días para su caducidad", vbInformation
Else
MsgBox "Lo sentimos, pero este libro de trabajo" & vbCrLf & "ha llegado a su fecha de vencimiento", vbCritical

Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close
End If
End Sub

Esta macro funciona bien pero tiene cambiando la fecha del Windows se puede ampliar o reducir la fecha de caducidad.
Alguna solución fara ello.
Gracias.

6luishao6

Masculino Cantidad de envíos : 22
Edad : 30
Ciudad - Pais : venezuela
Version de Excel : 2007 - 2010
Fecha de inscripción : 18/04/2015

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.