How can we make an Excel workbook expire with VBA so that the co-workers are forced to work with the latest version of the file or data.
Watch the training video below:
You can watch this video on YouTube.
Here’s the complete VBA code:
Sub Warn_User_of_Expiry()
Dim expiry as Date
expiry = “4/25/2016”
If Date > expiry Then
MsgBox “The data has expired. Please download the latest version”, vbInformation, “Close”
Application.DisplayAlerts=False
ActiveWorkbook.Close
Application.Quit
Else
MsgBox “You have ” & expiry – Date & ” day(s) left”, vbInformation, “Data expires ” & expiry
End If
End Sub
In that case, the owner of the document can’t even change the date.
So, how to avoid that. Then the application should ask for the password for Admin access at least.
Thanks for this, but when I do this, the date and month mentioned in the pop up and the year is not displayed, please can you help with this.
example: http://prntscr.com/fk8b21
my file expired how to open expired file
If i manually change the date of the system, it will never expire
What is the solution to this problem?
Hi there, Thank you for sharing this video. I have one question for you, after I have applied the code and saved the file it ask to “enable content” If this has not been activated by the user then the workbook will still continue to function. Is there a way to disable it without having to worry about this feature needing to be activated???
Also how can I lock the macro so this cannot be changed??