[Solved] Global Expiration Date?

F

Frankschn

New member
i need a solution for a global expiration date not based on activation keys.
Do you plan to implement this feature in the next release?

Thanks
 
Last edited:
Hi Frankschn,
Could you put something in your Workbook_Open() event of your excel program that analyses when it should self destruct (so to speak)?

Or perhaps put a date in a cell in some invisible back page that once the program detects the date is less than or equal to today then it erases stuff or auto-closes?

If datasheet.Range(“expiryDate”) <= cdate(“05/20/2019”) then
'close app
Thisworkbook.close Save:=false
end if

or something like that?

Thanks
Dan
 
Last edited:
Hi Dan,

thanks for your suggestion, but my problem is that i have a before close code.
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ReturnValue As Integer
ReturnValue = MsgBox("do you want to save??", vbYesNoCancel + vbQuestion, "Myapp")
Select Case ReturnValue
Case vbYes
Call export
Case vbCancel
Cancel = True
Case vbNo
End Select
ThisWorkbook.Saved = True
End Sub
so it doesn’t work, or can y bypass the before_close event in this case?

Thanks
 
Just add the date check again in the Before Close event to prevent the msgbox from appearing.
 
Last edited:
You must log in or register to reply here.
Back
Top