Is there a way to insert a formula, password or macro in an excel spreadsheet that will automaticall

[oil_driller]

Is there a way to insert a formula, password or macro in an excel
spreadsheet that will automatically delete the spreadsheet at the date you
specified?

thanks,

Charlie

 

[Ron de Bruin]

Hi Charlie

Delete the file is I think not a good idea?
Maybe the user have some information in it???
But it is possible, post back if you want to know how to do it

There is always a way to use your workbook if anybody wants it.
VBA is not save.

Put this in the workbook open event of the workbook.
After the date the file will be closed when you open it.

Private Sub Workbook_Open()
If Date > DateSerial(2005, 4, 1) Then
ThisWorkbook.Close savechanges:=False
End If
End Sub

But macro's will not run when holding the shift key or disable macro's
So closing with a macro is not save.

Try the code above in combination with this

A good way is to hide all sheets except one and unhide them in
the workbook open event.
Place a message on that sheet with "you must enabled macro's to work with this file"
And hide the sheets in the beforeclose event.
So the user can't use the workbook if he disable macro's.
If he do the workbook open event don't run so there are no sheets
to work with
You must protect your project also in the VBA editor because a user can't unhide
the sheets there also if you don't do that

Some example code to do this
Sheet 1 stay always visible

Sub HidealmostAll()
Dim a As Integer
For a = 2 To Sheets.Count
Sheets(a).Visible = xlVeryHidden
Next a
End Sub

Sub ShowAll()
Dim a As Integer
For a = 2 To Sheets.Count
Sheets(a).Visible = True
Next a
End Sub