FSt1

Copy this to a new workbook. Save the workbook.

Sub aaaa()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub

See what happens when you run it.

The trick is to make the workbook readonly then it can commit suicide.

OP could run this from an ontime macro but I would suggest OP give ample warning
to the user of the workbook.

For more on OnTime see Chip Pearson's site.

http://www.cpearson.com/excel/OnTime.aspx


Gord Dibben MS Excel MVP



On Mon, 8 Oct 2007 14:44:03 -0700, FSt1 wrote:

well.....
a macro can't delete the file it's in.
deleting the data in the file smacks of virus.
how about this.....
Private Sub Workbook_Open()
If Cells(2, 1) < Date Then
MsgBox ("The data in this file has expired." & vbNewLine & _
"Consult somebody about getting new data." & vbNewLine & _
"Not responsibe for horribly bad things that happen" & vbNewLine & _
"if decisions are made with this data.")
End If
End Sub

regards
FSt1

"Sasa Stankovic" wrote:

you mean like in movies... in 5 sec file will autodestroy?!?!?!?
5
4
3
2
1
bang!!!!!!

;-)

this or something similar?
really, you want file to be deleted from your hdd?

"FSt1" wrote in message
...
hi,
what do you mean by "auto expire"? what happens when it expires?

cautiously curious
FSt1

"Van" wrote:

I'm trying to get an excel file to auto expire on a preset date. Does a
custom macro exist or can it be done with an Excel function? Thank you