Thread: User Login

Hey, had no luck with this after trying various things.

I have a form where once you open my workbook it asks you to select a user and then enter a password.

It then checks the password against some data in a sheet using a V lookup.

The table basically is small and looks like so:

Administrator - admin
User1 - password
user2 - password

Just 2 columns 3 rows

The code that deals with the user form is as follows:

Code:

Private Sub EnterPassword_Click()
Dim password As String
password = PasswordInput.Text


If password = WorksheetFunction.VLookup(UserList.Value, Range("Users_List"), 2, 0) Then
Sheets("Protected").Visible = False
Sheets("Blank").Visible = False
MsgBox "Password Accepted"
Unload Me


Else

Sheets("Protected").Visible = xlVeryHidden
Sheets("Blank").Visible = xlVeryHidden
MsgBox "Password Not Accepted, Workbook will close"
Unload Me
ThisWorkbook.Close
End If

End Sub

This part checks the usernames and passwords:

Code:

If password = WorksheetFunction.VLookup(UserList.Value, Range("Users_List"), 2, 0) Then
Sheets("Protected").Visible = False
Sheets("Blank").Visible = False
MsgBox "Password Accepted"
Unload Me

what I want to do is with the 'Administrator' make it a power user of sorts, and when that user is selected the sheets become visible, like this sort of:

Code:

Sub UnhideSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next
End Sub

But I cant integrate it into the code although I did try:

Code:

If UserList.Value = "Administrator" & password = "admin" Then
UnhideSheets
End If
Unload Me

If anyone knows a way I can do it, I'd greatly appreciate it, this is the last part of my program

Thanks for looking

Hi DominicB,

I would like to see a copy of your workbook - would you be willing to post it? Thanks,

Your login form sounds exactly what I've been looking for. Would you be able to email me a copy?

Thank you