Workbook Expiry date with eviron name bypass

I am hoping to put an expiry date on my workbook, this I can achieve, I was also hoping to set a environ name so if I open the file passed the expiry date the file will open for me only. I have the following 2 pieces of code but can not get them working together, thanks for any assistance.

HTML Code: 

Code in Module 1

HTML Code: 

I would try to move your password section:

Please Login or Register  to view this content.

to the "Sub Gone ()" sub.

Then perhaps change your MsgBox to a Userform ... have it display the same user message about expiry but include a commandbutton or maybe just a label that is linked to a password form for your purposes.
Actually if you decide to do it that way, your password section would be tied to the new commandbutton or label in the userform.

Make sense ?

Thanks for your reply Logit, I have tried the following but it is not doing anything, not closing the workbook if the username is wrong. Is this how it should be coded to achieve what I want?

HTML Code: 

Logit, Thanks for your assistance, I now have this working as I would like, I have included the password section in userform 2 of your attachement and it works as I require, I put a function in to test for the username so that I can match that with password required in userform 2 thanks again for your assistance.
I will mark this as solved

Glad to be of assistance. Thanks.