............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ARCHIVO KAMIKAZE ó SUICIDA!...

Ver el tema anterior Ver el tema siguiente Ir abajo

ARCHIVO KAMIKAZE ó SUICIDA!...

Mensaje por gusmario2011 el Vie Nov 25, 2011 3:05 pm

ARCHIVO KAMIKAZE ó SUICIDA!...

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"

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[code]

gusmario2011

Masculino Cantidad de envíos : 9
Edad : 49
Ciudad - Pais : mexicali - mexico
Version de Excel : 2007
Fecha de inscripción : 20/11/2011

Volver arriba Ir abajo

Re: ARCHIVO KAMIKAZE ó SUICIDA!...

Mensaje por Roberto2010 el Vie Nov 25, 2011 8:17 pm

Interesante el ejemplo, gracias por el aporte gusmario2011.
Podría alguien explicar el significado estas líneas del código?
Muchas gracias

.Path <> vbNullString

.ChangeFileAccess xlReadOnly
avatar
Roberto2010

Masculino Cantidad de envíos : 76
Edad : 40
Ciudad - Pais : ARGENTINA
Version de Excel : 2003-2007
Fecha de inscripción : 03/09/2010

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.