[Solved] Global Expiration Date?

XLS Padlock
1

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

2

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

3

Hi Dan,

thanks for your suggestion, but my problem is that i have a before close 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

4

Just add the date check again in the Before Close event to prevent the msgbox from appearing.

5

thanks for for the suggestion… it works…

1 Like
6

Good idea!