VBA Assistance with password access to sheets

[sintek]

Hi All

I have attached a workbook which works as follows.
When opened Userform2 opens and allows for login or set access.
When entering 125 0r 150 as password Userform1 opens which allows a manager to set access to sheets,
So that when any of the employees login, only those sheets that allow them access will be visible.

1. I am stuck and not sure how to save the Userform1 options when selected.
2. How to have these options chosen to take effect when the employees login.
Can anyone please have a look and advise how to go about getting the result required.

[sintek]

Hi All

I saw on net that the info has to be saved to a hidden sheet so herewith code which stores selection.
Must be a simpler way than this?

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[sintek]

With the below code, a employee will log on: I need to enter code that checks the selection and makes visible only the sheets allowed.

Please Login or Register  to view this content.

[sintek]

Hi All

I managed to accomplish what I needed, however, the code is extremely long. Can someone please assist to shorten.

The below code needs to be shortened. Pretty please.

Please Login or Register  to view this content.

Please Login or Register  to view this content.