HOLA, navegando por la red me encontre este codigo en una paguina web en ingles, que obviamente no es de mi autoria, pero esta muy interesante y sencillo de hacer, supongamos que creamos un archivo con un periodo de prueba y activacion, el cual despues de varios avisos o adevertencias del autor, hara que el archivo cometa suicidio ("ADVERTENCIA") [Este archivo se autodestruira y cuando digo destruccion me refiero a que se auto elimina del sistema, no lo podremos recuperar de la recicladora!!...].
Espero les sirva...
Copia y pega este codigo en "thisworkbook"
- Código: Seleccionar todo
Private Sub Workbook_open()
'Muestra el mensaje de bienvenida y despedida, desaparece solo en 3 segundos.
CreateObject("wscript.shell").Popup _
"Bienvenido, En 3 Segundos El Archivo Cometera 'SUICIDIO'", 3, "Mensaje temporal"
'Combocar archivo para cometer suicidio.
Call Suicida
End Sub
Sub Suicida()
With ThisWorkbook
Application.DisplayAlerts = False
If .Path <> vbNullString Then
.ChangeFileAccess xlReadOnly
Kill .FullName
End If
ThisWorkbook.Close SaveChanges:=False
End With
End Sub
