Password protecting UserForm?

Please Login or Register  to view this content.

I am using the above code to password-protect UserForm1 by using UserForm2. Although I know these password protect systems are easily surpassed I need some level of protection in the UserForm as it contains confidential information and it's been requested from a higher level.

I have highlighted in red where I am encountering the dreaded [91] error "Object variable or With block variable no set".

Simply put, I have a small range of Usernames and Passwords in range D:E (D being Usernames, E being passwords). I want the password checker to search through the Usernames and passwords and if the relevant Username and Password entered by the user isn't found then I want them to be notified and they have 2 further attempts. After the third attempt the program will simply exit. If they enter a correct Username and Password combination, then they are directed to UserForm1.

The code above worked like a dream for the counter (which advises the user which try they are on) and for putting a "Logged in as: XXX" message on UserForm1 once successfully entered however only for a singular set Username/Password. Short of giving every one of the expected 300 or so users of this program a copy of their own and changing every bit of code for each user, is there anyway I can edit the above code to make it work?

Many thanks in advance for any help.

For your ease of helping, please find a copy of the workbook via the link below - please ignore all the random details in each of the sheets, only the UserForm is important

http://www.nippyzip.com/uploads/080519105604-01993.zip

~Liam

Are those TextBoxes in the UserForm containing the code?

It doesn't appear to be finding the user name.

Where did you get this code from?

http://www.ozgrid.com/forum/showthre...light=password

The code in my original post is my edited version to *attempt* to make it work with my UserForm. Do you have any suggestions on what I can do to make it work with my UserForm?

The code in the link above is for a singular Username and password whereas I want the code to look through the Usernames in my range and the corresponding passwords in the cell to the right (FindR.Offset(0,1)?) from what the user has entered into UserForm2.

Thank you for taking your time to help me, very much appreciated!

~Liam

Try this

Please Login or Register  to view this content.