Password list from file?

[Rick M]

Insread of coding in user name and passwords, Can I use a seperate file (excel sheet) and look up usernames and password from there?
This way the user can manage the password list?

[Juan Pablo González]

Yes, passwords are basically strings. BUT, that would also depend on WHERE you have your passwords set !

Meaning, if you want to "read" the workbook password from another book, that's not an easy task.

[Rick M]

The password file will reside in the same workbook.
Can you supply some code?
thanks...

[Nimrod]

Hi Rick :
I've had some situations where I've wanted a password entered and used a VB Form or input box that the user types the information into. That way there are no passwords to be found by others ... is that acceptable ?

Public Sub PasswordInfo()
    CurrentUser = Application.UserName
    Password = InputBox("Please Enter Password", "PASSWORD")
End Sub

[ This Message was edited by: Nimrod on 2002-05-22 10:36 ]

[Rick M]

I have an input box to enter the password, but the password is coded in VB. I would like to keep a file for username and passwords and refer to this list in the code.

This is what I have:
Dim spassword As String
spassword = InputBox(prompt:="You must have a PASSWORD to view this page", Title:="PASSWORD REQURIED")

If spassword = "psr" Then
Sheets("Income").Select


Else
MsgBox "SORRY, You do not have access to this information - THANKS FOR TRYING", _
Title:="Oops!"

Exit Sub
End If
End Sub

I want to add a username and eliminate the coding of "psr" as the password. The code would lookup the username and password from this file and accept or deny the result.

[Nimrod]

Hi Rick , How about something like this ?

Public Sub PasswordInfo()
   PsWdSheetName = "Sheet1"
    EnterPassWd = InputBox("Please Enter Password", "PASSWORD")
    Set c = Worksheets(PsWdSheetName).Range("a1:a" & (Cells(65536, 1).End(xlUp).Row)).Find(Application.UserName, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
    StoredPasswd = Worksheets(PsWdSheetName).Cells(c.Row, c.Column + 1).Value
    End If
    If Trim(EnterPassWd) = Trim(StoredPasswd) Then
    ' put in what you want it to do here
    End If

End Sub

Another suggestion I have for your password sheet it that you may want to use the "xlSheetVeryHidden" property of a sheet so that the user can unhide it from the toolbar.

Note that you could also prompt for username though this macro picks it up from who has logged into the application. It then looks at the password sheet.. attempts to find username in colA then takes passwd value from colb. It then matches that passwd with the one the user was prompted for.

[ This Message was edited by: Nimrod on 2002-05-22 11:46 ]

[Rick M]

Nimrod
Thanks - that works IF the user is required to login the application.
What if I included an inputbox for username and password?
What would the code changes be?