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