Este es un procedimiento muy peligroso, sirve para realizar demos de aplicaciones en Excel con VBA, Autoelimina el libro

Autoeliminar Libro  (Super Peligrosa!!!)

 

Private Sub Workbook_Open()

Dim fecha As Date

Dim wb As Workbook

Dim diasfaltantes As Date

Const r = “día”

Const t = “días”

fecha = “25/04/2015”       ‘fecha de eliminacion del libro

Set wb = ThisWorkbook

 

If fecha <= Date Then

MsgBox “Se ha cumplido el periodo de prueba del libro!”, vbExclamation

 

With wb

.Saved = True ‘se establece como salvado

.ChangeFileAccess xlReadOnly ‘se pone el acceso al libro como de solo lectura

Kill .FullName ‘se elimina el libro

.Close ‘se cierra el libro

End With

Else

diasfaltantes = fecha – Date

k = CInt(diasfaltantes)

Select Case k

Case 1

MsgBox “Falta ” & k & ” ” & r & ” para cumplirse el periodo de prueba del libro!”, vbExclamation

Case Is > 1

MsgBox “Faltan ” & k & ” ” & t & ” para cumplirse el periodo de prueba del libro!”, vbExclamation

End Select

End If

End Sub

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s