¿cómo hacer que un archivo excel se elimine automáticamente?

 

hacer que el archivo excel se elimine automáticamente, es muy util cuando compartes información o un archivo en modo prueba, donde al término de un tiempo, este se elimina automáticamente.  

Código VBA para el MÓDULO

Sub Eliminar_archivo() Application.DisplayAlerts = False ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ThisWorkbook.Close False End Sub Sub caducidad() 'deshabilitamos boton cancelar del msgbox Application.EnableCancelKey = xlDisabled fecha = ("25/09/2030") If Date < DateSerial(Year(fecha), Month(fecha), Day(fecha)) Then MsgBox "En: " & (DateSerial(Year(fecha), Month(fecha), _ Day(fecha)) - Date) & " dias, este archivo se ELIMINARA AUTOMATICAMENTE", _ vbInformation, "Tiempo de Expiración del Archivo" Else MsgBox "Lo siento, el tiempo para conservar su archivo a Terminado." & Chr(13) _ & "Este archivo se autoeliminará.", vbCritical, "Tiempo de Expiración del Archivo" Call Eliminar_archivo End If End Sub

Código para el  Workbook
Private Sub Workbook_Open() Call caducidad End Sub