Activate login form for each sheet for different users

[royhardware]

I have a Workbook with about 90 sheets that will be used by different users at different times, I have created a Home Sheet and a Combobox that will allow user to jump to the sheet they select, I want to create a login form with Username and password for some sheets that only user with password can access.

What I want to achieve is that when users selects a sheet in the combobox, it should prompt for username and password. if the username and password is entered correctly it should take user to the sheet selected, if the username and password is wrong it should display an incorrect password.

I have designed the login userform but the code is beyond me, I intend to have up to 30 different users.

Thanks for the help

 

[mole999]

presuming you want them all to have different passwords, how do you plan to incorporate that ?

 

[royhardware]

presuming you want them all to have different passwords, how do you plan to incorporate that ?

Each user has his/ her own unique sheet and the user id and password to be set for that specific sheet. Same for all other users

 

[royhardware]

presuming you want them all to have different passwords, how do you plan to incorporate that ?

I have a code that looks like this:
Private Sub Worksheet_Activate()
MySheet = "OZINEGBE E. BENJAMIN"
If ActiveSheet.Name = MySheet Then
ActiveSheet.Visible = False
Response = InputBox("Enter password to Continue")
If Response = "MyPass" Then
Sheets(MySheet).Visible = True
Application.EnableEvents = False
Sheets(MySheet).Select
Application.EnableEvents = True
End If
End If
Sheets(MySheet).Visible = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


The problem am having with the code is that:
1. Password is not masked in "*" when typing it
2. No message incase there is an input password error
3. It does not return to home page if password error

Please help me.