Autodestrucción de Archivos Excel

jues · el 16 de diciembre

Saludos Amigos

Encontré este código que según debía eliminar cualquier archivo de Excel sin que el mismo pudiera volver a ser utilizado o quedara en la papelera sin embargo al ejecutarlo ciertamente aparece el MsgBox e inhabilita el archivo para su uso sin embargo no lo elimina de donde este archivado no se si es que la versión en la que programaron ese código sea mucho mas antigua que la mía, de igual modo me interesaría saber si este mismo codigo puede ser usado para Macros en Word mucho les sabre lo que me puedan colaborar

Option Explicit

Private Sub Workbook_Open()

Call Module1.AlAbrirLibro

Dim exdate As Date

exdate = "30/04/3100"

If Date > exdate Then

MsgBox ("Windows ha detectado un problema el archivo no responde y debe cerrarse"), vbExclamation

Call Autodestruccion

End If

End Sub

Sub Autodestruccion()
On Error Resume Next
Application.DisplayAlerts = False
ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close SaveChanges:=False
On Error GoTo 0
End Sub

Israel Cassales · el 18 de diciembre

El código que compartiste es una macro que se supone “autodestruye” el archivo de Excel después de una fecha específica.

Sobre algunas cosas que podrían estarte causando problemas:

Permisos: El código intenta cambiar el acceso al archivo a solo lectura y luego eliminarlo. Si el archivo está en un lugar donde no tienes permisos para hacer esto (por ejemplo, una carpeta del sistema o una ubicación de red), el código fallará.

Errores silenciados: El código usa On Error Resume Next, lo que significa que si ocurre un error, el código simplemente continuará con la siguiente línea. Esto puede hacer que sea difícil ver qué está saliendo mal. Por qué no intentas ejecutar por línea para ver si se muestra algún mensaje de error.

¡Vaya! Dude en si participar o no.

Israel Cassales · el 18 de diciembre

En cuanto a tu pregunta sobre si este código puede ser usado para macros en Word, la respuesta es sí, pero con algunas modificaciones.

Word tiene un objeto similar a ActiveWorkbook llamado ActiveDocument, así que podría ser algo como esto:

Option Explicit

Private Sub Document_Open()

Dim exdate As Date    

exdate = "30/04/3100"

If Date > exdate Then

MsgBox ("Windows ha detectado un problema el archivo no responde y debe cerrarse"), vbExclamation

Call Autodestruccion

End If

End Sub

Sub Autodestruccion()
On Error Resume Next
Application.DisplayAlerts = False
ChangeFileAccess xlReadOnly
Kill ActiveDocument.FullName
ActiveDocument.Close SaveChanges:=False
On Error GoTo 0    
End Sub

Por favor, ten en cuenta que el código tiene las mismas limitaciones y problemas potenciales que el anterior. Por otro lado te recomendaría que lo uses con precaución.