En este grupo En todos

Foro de Excel



Caducidad

Paulino
Contabilidad preparatoria con bachille...
Escrito por Paulino Castillo
el 02/09/2008

Hola a todos!

Tengo la siguiente duda, es posible programar un archivo para que después de cierto tiempo se borre por completo?

Lo que pasa es que todos los días renombro archivos y cada cierto tiempo tengo que borrarlos.

Espero haberme explicado gracias y saludos!

Armando Montes
Foro excel emagister
Escrito por Armando Montes
el 02/09/2008

En este mensaje anterior encuentras una solucion de Pavel, suerte:

https://foros.emagister.com/tema-+auto+eliminar+-12890-647562. Htm

Gustavo Sebastiani Cepeda
Contabilidad y finanzas universidad na...
Escrito por Gustavo Sebastiani Cepeda
el 02/09/2008

Private Sub Workbook_Open()
"deshabilitamos boton cancelar del msgbox
Application. EnableCancelKey = xlDisabled
"Fecha de Expiracion o de caducidad : 06/02/2009 (mi cumpleaños pz je)
si la fecha actual es menor a 06/02/2009
If Date < DateSerial(2009, 2, 6) Then
MsgBox "Dentro de: " & (DateSerial(2009, 2, 6) - Date) & " dias este archivo SE AUTOLIMINARA" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbInformation, "Tiempo de Expiración"
Else
MsgBox "Lo siento, el tiempo de prueba a terminado" & Chr(13) & "Esta hoja se cerrará" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbCritical, "Tiempo de Expiración"
ActiveWorkbook. Close SaveChanges:=FalseCALL AutoDestruccion
End If
"Sebastiani. Excel@gmail. Com
End Sub
Sub AutoDestruccion()
On Error Resume Next
    Application. DisplayAlerts = False
    With ActiveWorkbook
        . ChangeFileAccess xlReadOnly
          Kill. FullName
         . Close
     End With
  Application. DisplayAlerts = True
End Sub

ALGO ASI SERIA LO MODIFIQUE ALGO ASI ALTOKE, LA MACRO DE AUTODESTRUCCION ES la que jale del link que armando que propuso

Paulino Castillo
Contabilidad preparatoria con bachille...
Escrito por Paulino Castillo
el 03/09/2008
"Private Sub Workbook_Open()
"deshabilitamos boton cancelar del msgbox
Application. EnableCancelKey = xlDisabled
"Fecha de Expiracion o de caducidad : 06/02/2009 (mi cumpleaños pz je)
si la fecha actual es menor a 06/02/2009
If Date < DateSerial(2009, 2, 6) Then
MsgBox "Dentro de: " & (DateSerial(2009, 2, 6) - Date) & " dias este archivo SE AUTOLIMINARA" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbInformation, "Tiempo de Expiración"
Else
MsgBox "Lo siento, el tiempo de prueba a terminado" & Chr(13) & "Esta hoja se cerrará" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbCritical, "Tiempo de Expiración"
ActiveWorkbook. Close SaveChanges:=FalseCALL AutoDestruccion
End If
"Sebastiani. Excel@gmail. Com
End Sub
Sub AutoDestruccion()
On Error Resume Next
    Application. DisplayAlerts = False
    With ActiveWorkbook
        . ChangeFileAccess xlReadOnly
          Kill. FullName
         . Close
     End With
  Application. DisplayAlerts = True
End Sub

ALGO ASI SERIA LO MODIFIQUE ALGO ASI ALTOKE, LA MACRO DE AUTODESTRUCCION ES la que jale del link que armando que propuso
"

por Gustavo Sebastiani (Septiembre 2008)


Gracias por sus respuestas.

Ya apliqué este código en un archivo de prueba y modifiqué las fechas, se ve excelente que te avise cuantos días le quedan de "vida" pero al poner una fecha anterior a la fecha actual "date" solo me dice que se cerrará pero no jala la macro de autodestrucción.

Estoy haciendo algo mal?


Gustavo Sebastiani Cepeda
Contabilidad y finanzas universidad na...
Escrito por Gustavo Sebastiani Cepeda
el 03/09/2008

Private Sub Workbook_Open()
"deshabilitamos boton cancelar del msgbox
Application. EnableCancelKey = xlDisabled
"Fecha de Expiracion o de caducidad : 06/02/2009 (mi cumpleaños pz je)
si la fecha actual es menor a 06/02/2009
If Date < DateSerial(2009, 2, 6) Then
MsgBox "Dentro de: " & (DateSerial(2009, 2, 6) - Date) & " dias este archivo SE AUTOLIMINARA" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbInformation, "Tiempo de Expiración"
Else
MsgBox "Lo siento, el tiempo de prueba a terminado" & Chr(13) & "Esta hoja se cerrará" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbCritical, "Tiempo de Expiración"
ActiveWorkbook. Close SaveChanges:=False

CALL AutoDestruccion
End If
End Sub


Sub AutoDestruccion()
On Error Resume Next
    Application. DisplayAlerts = False
    With ActiveWorkbook
        . ChangeFileAccess xlReadOnly
          Kill. FullName
         . Close
     End With
  Application. DisplayAlerts = True
End Sub

Paulino Castillo
Contabilidad preparatoria con bachille...
Escrito por Paulino Castillo
el 04/09/2008
"Private Sub Workbook_Open()
"deshabilitamos boton cancelar del msgbox
Application. EnableCancelKey = xlDisabled
"Fecha de Expiracion o de caducidad : 06/02/2009 (mi cumpleaños pz je)
si la fecha actual es menor a 06/02/2009
If Date < DateSerial(2009, 2, 6) Then
MsgBox "Dentro de: " & (DateSerial(2009, 2, 6) - Date) & " dias este archivo SE AUTOLIMINARA" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbInformation, "Tiempo de Expiración"
Else
MsgBox "Lo siento, el tiempo de prueba a terminado" & Chr(13) & "Esta hoja se cerrará" & Chr(13) & "Sebastiani. Excel@gmail. Com", vbCritical, "Tiempo de Expiración"
ActiveWorkbook. Close SaveChanges:=False
CALL AutoDestruccion
End If
End Sub

Sub AutoDestruccion()
On Error Resume Next
    Application. DisplayAlerts = False
    With ActiveWorkbook
        . ChangeFileAccess xlReadOnly
          Kill. FullName
         . Close
     End With
  Application. DisplayAlerts = True
End Sub
"

por Gustavo Sebastiani (Septiembre 2008)


Gracias Por la respuesta Sebastian.

Pero al ajecutar la macro con con una fecha pasada para forzar el mensaje solo avisa que se cerrará y se cierra pero el archivo sigue apareciendo.

Es correcto? O la idea es que se elimine después de mostrar el mensaje.

Gracias nuevamente y saludos.


Gustavo Sebastiani Cepeda
Contabilidad y finanzas universidad na...
Escrito por Gustavo Sebastiani Cepeda
el 04/09/2008

es de esta manera para eliminarlo, disculpa por equivocarme por segunda vez.

CALL AutoDestruccion

ActiveWorkbook. Close SaveChanges:=False

Paulino Castillo
Contabilidad preparatoria con bachille...
Escrito por Paulino Castillo
el 06/09/2008
" es de esta manera para eliminarlo, disculpa por equivocarme por segunda vez.
CALL AutoDestruccion
ActiveWorkbook. Close SaveChanges:=False

"

por Gustavo Sebastiani (Septiembre 2008)


Excelente!

Muchas gracias.

Paulino C.


Guido Albornoz
Córdoba, Argentina
Escrito por Guido Albornoz
el 20/02/2014

Hola, quería saber como hacer para que un archivo de excel, solo lo puedan usar en una pc específica y no en otra. Puntualmente tengo un archivo que me lo quieren comprar, pero si se lo paso normal, esta persona se lo puede pasar a otro facilmente. Podría ser tambien, que cada cierto tiempo, tenga que ir y poner una especie de clave maestra, para que siga funcionando o algo por el estilo, les agradezco cualquier ayuda que me puedan dar.