I used the code shown below many years ago to make a workbook expire after a date.
I am now trying to use it in with a workbook on excel 2016, and its not working.
I would like it to protect a workbook with 30 sheets (tabs).
can someone fix this or maybe offer something else that would work?
I juts want it to expire after a date, with a message.
Thanks
Please Login or Register to view this content.
Last edited by alansidman; 10-27-2019 at 05:06 PM.
Look at post #2 and #3 here: https://www.mrexcel.com/forum/excel-...lete-file.html
Alan עַם יִשְׂרָאֵל חַי
Change an Ugly Report with Power Query
Database Normalization
Complete Guide to Power Query
Man's Mind Stretched to New Dimensions Never Returns to Its Original Form
Not working, I'm missing something.... Are both dates needed? If so, Why two?
I also don't need it to delete anything, just not open after a date.
Please Login or Register to view this content.
Last edited by AliGW; 10-27-2019 at 05:50 PM. Reason: Code tags fixed.
You do not need to enter a second date. The line If Date > Edate +2 Then translates to if Today is greater than the Edate (which you defined as Dec 31, 2012) + 2 days then close the workbook.
Have you placed the code in a Event Module and not in a standard module. Just to be sure.
Open the VBE
In the left window, click on this workbook to open the Workbook event window in the right pane.
Paste the code in.
Save and close. Save the file as a macro enabled.
This works fine for me.
Please Login or Register to view this content.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
OK, Thanks. Works fine. I had it in an improper module.
A follow up question...….
Before, (with an old 2003 excel version) I could open an expired module (At least look at it) by holding down "shift" and
right clicking on the file as "Open as Read Only", then I would go to the password protected VBA to edit the expire date.
With excel 2016, that does not seem to work. Is there a way to see the VBA with the 2016 version, on an expired file?
Last edited by richard11153; 10-28-2019 at 07:26 AM. Reason: A mistake
Thats a video for MS 2010. (Not like that in 2016 version)
Did you try this ?
Open an instance of Excel.
Click the Office-button and select Open.
Select your file and hold down the Shift-button while clicking the Open button.
This should prevent the macro's from kicking in.
OK, That let me open the "expired workbook file" But...….
The macros that I put in "worked". The file was usable!!
Last edited by richard11153; 10-28-2019 at 05:25 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks