May 2, 2016

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

5 thoughts on “How to make Excel workbook expire

  1. 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.

  2. 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??

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.