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

Published by

Dinesh Kumar Takyar

Welcome to exceltrainingvideos.com! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: http://youtube.com/familycomputerclub For a structured Excel VBA training course online you can visit: https://www.youtube.com/excelvbaonline

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

    Reply

Leave a Reply

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