En este grupo En todos

Foro de Excel



caducidad archivos

Junior
Distrito Federal, Ar...
Escrito por Junior Moreno
el 15/07/2008

Buenos dias hermano

Encontre una macro para colocar caduicidad a los archivos el unico problema seria que si la persona no tiene la seguridad baja en el excel igual puede abrir esos archivos como puedo hacer

Esta es la macro

Sub controlFecha()
Application. ScreenUpdating = False
Dim miFecha As Date
If Sheets("Hoja1"). Range("Z2") = "" Then
"significa que es la primera apertura del libro
"coloco una fecha de caducidad
miFecha = 14 / 7 / 2008 + 1
Sheets("Hoja1"). Range("Z2") = CDate(miFecha)
ActiveWorkbook. Save

Else
"significa que el libro ya fue abierto
"se comparan las fechas
If Sheets("Hoja1"). Range("Z2") < Now Then
MsgBox "Lo siento, este libro ha caducado"
ActiveWorkbook. Close False
Exit Sub
End If
End If
End Sub

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 15/07/2008
Puedes "obligarlos" a que siempre  las macros esten habilitadas, teniendo las hojas ocultas a traves de su propiedad xlVerySheetHidden. Mira en este ejmplo:

https://es.geocities.com/eavj666peru/Usuarios. Xls

Abrelo primero sin habilitar las macros

Abraham
Gustavo Sebastiani Cepeda
Contabilidad y finanzas universidad na...
Escrito por Gustavo Sebastiani Cepeda
el 15/07/2008

Private Sub Workbook_Open()

Application. EnableCancelKey = xlDisabled
"si la fecha actual es mayor a...
If Date > DateSerial(2008, 8, 31) Then
MsgBox "LA hoja a caducado ... Bye", vbCritical, "Por Gustavo Sebastiani Cèpeda"
ActiveWorkbook. Close SaveChanges:=False
End If
End Sub

Es otra manera de colocarle una fecha limite de uso.

Junior Moreno
Distrito Federal, Ar...
Escrito por Junior Moreno
el 21/07/2008

Estoy utrilizando el archivo de usuarios de excel lo que me gustaria seria colocarle una macro para que al momento de dejar de colocarle mi clave por 15 dias se borre lo que esta dentro del archivo ¿Es posible esto?

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 21/07/2008
De poder se puede, pero, que se borre exactamente que? "lo que esta dentro" puede significar muchas cosas.   En donde se guardaria la fecha de la ultima entrada? Etc

Abraham
Junior Moreno
Distrito Federal, Ar...
Escrito por Junior Moreno
el 23/07/2008
Que se borre de la celda a2 en adelante por ejemplo