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