How to make Excel workbook expire

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