Mr.G
05-26-2009, 12:30 AM
Hi
I found a KB entry "WorkbookSuicide". I am wondering if these will work with it.
On Sheet 1 Cell A1, = TODAY()
Then on Workbook Open,
Private Sub Workbook_Open()
If Cells("A:1").Value = 27 / 5 / 2009 Then
Call KillMe
End If
End Sub
KillMe KB23
Would be very nice.....easy to crack yes but still worthwhile.
Regards
I found a KB entry "WorkbookSuicide". I am wondering if these will work with it.
On Sheet 1 Cell A1, = TODAY()
Then on Workbook Open,
Private Sub Workbook_Open()
If Cells("A:1").Value = 27 / 5 / 2009 Then
Call KillMe
End If
End Sub
KillMe KB23
Would be very nice.....easy to crack yes but still worthwhile.
Regards