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:
Dim expiry as Date
expiry = “4/25/2016”
If Date > expiry Then
MsgBox “The data has expired. Please download the latest version”, vbInformation, “Close”
MsgBox “You have ” & expiry – Date & ” day(s) left”, vbInformation, “Data expires ” & expiry