I currently have the following code that asks for a pass code. I was wondering how can I modify this code where each employee has individual pass code.
Dim pass As String pass = InputBox("Enter Password") If pass <> "1234" Then MsgBox "Please try again" cbResolved_Click Else: ufInquiryResolved.Show End If
You could create a sheet with a list of passwords in column A. Make the sheet veryhidden so it can't be seen. Then have your macro compare the entered password to the list in the hidden sheet and if the password is found, execute the remainder of the code.
You can say "THANK YOU" for help received by clicking the Star symbol at the bottom left of the helper's post.
Practice makes perfect. I'm very far from perfect so I'm still practising.
Mumps1,
Thanks for your reply. That is one way of doing it...I will look into that.
If you need help, post a copy of your file with a detailed explanation of what you want to do.
Mumps1,
I am trying your suggestion with having a sheet with all the pass codes on it in column C. I cant seem to be able to modify my code to have it check for correct code entered.
Private Sub cbResolved_Click() ' Prevents screen refreshing. Application.ScreenUpdating = False Dim pass As String pass = InputBox("Enter Password") If pass <> "1234" Then MsgBox "Please try again" cbResolved_Click Else: ufInquiryResolved.Show End If ' Enables screen refreshing. Application.ScreenUpdating = True End Sub
Try this macro. I am assuming that the sheet with the pass codes in column C is named "Sheet2". Change this name in the code to suit your needs.
Private Sub cbResolved_Click() Application.ScreenUpdating = False Dim pass As String Dim foundPass As Range pass = InputBox("Enter Password") If pass = "" Then Exit Sub Set foundPass = Sheets("Sheet2").Range("C:C").Find(pass, LookIn:=xlValues, lookat:=xlWhole) If Not foundPass Is Nothing Then ufInquiryResolved.Show Else MsgBox "Invalid password. Please try again." End If Application.ScreenUpdating = True End Sub
Mumps1,
Works like a charm. Thanks so much.
You are very welcome.
Mumps1,
I sent you a private message. Did it go through? I have never tried to send one before.
Mumps1,
I'm sorry I forgot to say, on the sheet with the pass codes "Sheets(4)" that are in column C, in column B is the users names.Is it possible that what ever pass code that is entered (If it is in column C) can we select the name in column B and put that name onto sheets(2) column CC?
Do you simply want to add the name on the first available cell in column CC of Sheets(2) to keep a running list of everyone who enters a code or do you just want to keep the last user's name in cell CC1
on that sheet I will have to do activecell.offset(0,?).select
then have activecell = the name of the user.
I'm not sure what you mean. Are you saying that you have additional code (activecell.offset(0,?).select) which will determine where the name of the user will go? What determines what number goes in place of the question mark. Please explain in detail what you are trying to do.
Sorry,
On sheet(2) the activecell is A1. (what row is determine earlier in the code) I will offset the active cell (0,80) then make that active cell = the users name
Try:
You don't need to use activecell.offset(0,80). We can simply use a direct reference to cell CC1.Private Sub cbResolved_Click() Application.ScreenUpdating = False Dim pass As String Dim foundPass As Range pass = InputBox("Enter Password") If pass = "" Then Exit Sub Set foundPass = Sheets("Sheet2").Range("C:C").Find(pass, LookIn:=xlValues, lookat:=xlWhole) If Not foundPass Is Nothing Then Sheets(2).Range("CC1") = foundPass.Offset(0, -1) ufInquiryResolved.Show Else MsgBox "Invalid password. Please try again." End If Application.ScreenUpdating = True End Sub
worked just like I wanted it to. Thanks. Your the best.
My pleasure.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks