Disable close workbook but still force users to close thru command button

I want the users to complete the tak and exit only through the command button which I have created on the worksheet. I have been trying with the following code, but it also stops when closing through command button (macros). Can any body help me on this?

This WorkBook Module

Please Login or Register  to view this content.

Sheet Module

Please Login or Register  to view this content.

you need to move the declaration of the variable to a normal module