LogIn User Form Code

[Willmonbo]

I am in need of a login user form that requires a username and password to use the file, the poor protection this method offers not withstanding, I found code that seems to work (the link is below) but the only problem i'm having with it is that even when the correct login information is entered I still get a warning message before it proceeds to complete the login, I'd greatly appreciate someone taking a look at the code and shed some light on this for me.

thanks in advance.


http://www.ozgrid.com/forum/showthread.php?t=31194&highlight=password/user+attempt+count

 

[Andrew Poulsom]

I don't know if it's the cause of your problem, but you need And instead of Or here:

If txtuser.Text <> "Peter Arnett" Or txtpassword.Text <> "Alison" Then

 

[Willmonbo]

Andrew, thanks for taking time to look at this, I do have my code saying "or", but I changed it to "and" and it didn't do anything different, so that's not really it, any other ideas?

my code comes directly from the attached excel file in that thread.

 

[Andrew Poulsom]

Please post your code.

 

[Willmonbo]

I should add that I figured out a go around but am still curious if there is simple way to avoid this, what I did is it has another sub routine with the following code (see below), this should prevent the user from canceling the user form with the top right corner "x" but I deleted the last line that had the msg since it was triggered even after being closed with the correct login information.


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub