Adding Expiration Date and Days Left For Expiration Problem

[Newmord]

I am using a workbook with set expire date. which runs behind userform at initiation
I have a workbook with userform which runs the workbook behind the userform when initializing.

I am tying to to add expiration date and days left for expiration to the workbook with this code:

Please Login or Register  to view this content.

My problems are
1. When the expiration date is not due message box appears already but it still terminates the application.
2. When I turn off the Application.Visible = False under the mbox <> "ABC" Then, then the application will not terminate even if the password is false.

Any help please?

[mjr veverka]

Please Login or Register  to view this content.

And

I am using a workbook with set expire date. which runs behind userform at initiation ...

I am tying to to add expiration date and days left for expiration to the workbook with this code: ...

? Above you wrote "workbook with set expire date", so ... ?

I have a workbook with userform which runs the workbook behind the userform when initializing ...

There is no such fact in the code ... (?)

Attach some fragmentary, partial xls example, it will help get to know this topic better.

[Newmord]

Login details to the attached file

USERNAME: user
PASSWORD: 1234
EXPIRED PASSWORD: ABC

Thanks in advance