Akash,

Work with the code to figure it out...its not difficult to figure
out since he provided me the proper sequence and santax of the code...A
true coder / Excel Developer doesn't always need the exact method or
procedure to alter code to work it the neccessary method. Thanks to his
code I am now able to have diffrent passwords to run for diffrent
features of a workbook. I didn't use his code the way he displayed but
merely altered it to do what I wanted it to do...


Akash wrote:
i am not able to know that hws r u running this code.

when ever i try to run this macro its asking me the password.

where & what password to type.

Where to store the password.

pls do tell me that....

Awaiting for ur mail

Akash

On Jan 12, 6:57 am, wrote:
Don,

Thank you so much your code worked just the way I wanted it to!! Your
the best!

-Todd

Don Guillett wrote:
How about this idea?

Sub askforpassword()
On Error GoTo nogood
ans = InputBox("enter password")
If Range("passwords").Find(ans).Row 0 Then
'MsgBox "OK"
Sheets("sheet7").Unprotect
Exit Sub
End If
nogood: MsgBox "Access denied"
End Sub

--
Don Guillett
SalesAid Software

wrote in message
oups.com...
Hello fellow programmers!

I was woundering if any one knew some code to allow me to do the
following...

I have 10 employees with 10 unique user names and 10 unique
passwords...

I have all 10 employees listed in Column A and all the passwords listed
in Column B, so I am wondering is it possible to create a UserForm to
allow a person to enter the user name and password to gain access to
workbook if it matches correctly to their name and password off the
values on the spreadsheet? Any help is greatly appreciated!!!