Foro Excel

Si alguien me puede ayudar, hace un tiempo vi un codigo para que llegada una fecha, se eleminara el libro y no lo puedo encontrar, si alguien me lo facilita.- Muchas gracias

El codigo siguiente elimina del disco el archivo con el cual estemos trabajando o bien sobre el que se aplique el codigo.

Sub borra_libroactivo()
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub

Saludos

Q TAL HECTOR
ESTE CODIGO LO ENCONTRE EN UN LIBRO, HECHA UN VISTAZO A VER SI TE SIRVE.


Sub auto_open()
'mensaje de los dias que faltan por caducar
Dim a As Date, b As Date
Dim c As Long, salida As String
a = Date
b = #9/12/2007#
salida = ""
c = b - a
salida = salida + "dias para caducar libro=" + Str(c)
MsgBox salida
'aqui esta la fecha de caducidad del archivo y la macro que lo elimina
If Date <= #9/12/2006# Then Exit Sub
MsgBox "Este archivo se borrará definitivamente"
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub

UN SALUDO

Gracias por la ayuda.- Lo pruebo y contesto como funciona

SCOPES: fabor la funcion KILL.FullName no me funciona, me activa el depurador.- si me puedes ayudar.- te lo agradesco.-

no se si es del editor pero la parte de KILL.fullname es separada
KILL .fllname
o bien
Kill activeworkbook.fullname
ActiveWorkbook.Close False