expiration date for excel file

[KO3933]

Can anyone advise if I can give an excel file an expiration date so user can no longer access the data after a predetermined expiration date?

 

[mrshl9898]

How about a workbook open macro, asking for a password, and closing the book if incorrect?

Code needs to go in 'ThisWorkbook'

Private Sub Workbook_Open()


Dim myval As Variant


If CDate("02/12/2018") < Now() Then
myval = InputBox("Workbook expired, enter password to use")
If myval <> "Password" Then
ThisWorkbook.Close
End If
End If


End Sub

 

[Joe4]

How about a workbook open macro, asking for a password, and closing the book if incorrect?

The only issue with that is if they disable VBA, that code will never run.
I have seen people try to do some things with hiding all the data, and you have to run VBA code to expose it. That being said, Excel security is not that great and can be bypassed.

KO3933,
What is the purpose of doing this? Sometimes if we understand not only what you are trying to do, but why, we may be able to offer other alternatives.