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

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

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

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

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

hay everyone,
I was just joking in my last post... ;-)
I think that idea is really interesting. Actually, I don't think that anyone
has ever asked me something lke that.
And, how "safe" is to create such macro? What if user runs it and after 10
minutes wants everything back?
I don't see real use but solution is very elegant and nice.

sasa

"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

Sasa

If user was to run the macro, the workbook is gone.

Does not go to recycle bin for recovery.

How safe and useful depends upon the developer who may want a payment after a
certain date and if payment not forthcoming, workbook is destroyed.

There are less drastic ways to disable a workbook functionality.


Gord


On Tue, 9 Oct 2007 21:53:27 +0200, "Sasa Stankovic" wrote:

hay everyone,
I was just joking in my last post... ;-)
I think that idea is really interesting. Actually, I don't think that anyone
has ever asked me something lke that.
And, how "safe" is to create such macro? What if user runs it and after 10
minutes wants everything back?
I don't see real use but solution is very elegant and nice.

sasa

"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