Password and case statements codes not working, but not erroring either

Hi All,

Back again for some help if someone would be so kind. I recently had some help getting some password protection coding in place for my project. It seemed to work on my gutted sample book I provided, but now I have it in my actual project, it doesn't seem to work. Here is a brief operational rundown of what I am trying to accomplish:

User selects a function out of a group of option boxes. This reveals another set of options where the user picks a work unit. Based on the work unit selection, the user provides a work unit specific password. If the user doesn't key in the proper password for their work unit selection, they will not be able to open the option from the function group. If the password is correct, the code should only allow the user to activate the function specific to their work unit.

Example: 3 functions, and 3 work groups...each workgroup share the same functions however they are unique to themselves. EEG (work unit) Report Occurence, View Logsheet, Goto Report Manager (shared function) should not be accessible by the EMU (work unit) which would also have the same functions. Clear as mud, right?

Anyway, for reasons I can't figure out, the password code seems to allow anything to pass as long as the 2 option selections are made. I am not getting error messages and I don't think the code is hanging up.

Please Login or Register  to view this content.

I also attempted to do case statement for handling the choices picked in the 2 option groups. As you will note, my VBA skills are lacking. Hopefully you can get a feel for the direction I was wanting to go with this. Here is what I came up with:

Please Login or Register  to view this content.

I am attaching my project if anyone would care to take a closer look. My coding is scattered throughout the project, but the majority of my issues are with the code placed on userform1.

Thank you all for the loads of help you provide all of us.

Patrick