Code to close active workbook without saving

I am trying to create a macro on a userform which displays a message box, which closes the active workbook without saving when yes is clicked.
The below code is giving me run time error 1004 Method 'Close' of object 'Workbook' failed:

Please Login or Register  to view this content.

Hi, how about just ....

Please Login or Register  to view this content.

At first it didn't do anything. I then added Unload Me before Application.Quit which then opened the default Do you want to save changes prompt. Iam trying close the workbook without that prompt displaying so the user cannot save the changes.

http://www.excel-vba.com/vba-code-2-4-workbooks.htm

If you want to close the workbook within which your VBA procedure (macro) runs without saving it you will write these two lines of code:

Please Login or Register  to view this content.

That doesn't seem to work either. I have attached my workbook. The Userform that automatically opens is called Users. If the user doesn't login and clicks the EXIT button I would like the workbook to close down. I can't get the default save changes prompt to stop displaying before closing.

Thank you John. I initially didn't want to give the user the option to save (since its not needed as the workbook just opened), and if they hit cancel I was planning on loading the Users userform again. However that at least stops the user from being presented with two message boxes.