Thank you for your response. I probably didn't make myself clear. I have a
worksheet (Sheet2) that will generate a random password and store it in cell
A1 whenever I recalculate the spreadsheet. On Sheet1 I have my employees
listed with user name, etc. I want to be able to use a button to change a
password to the contents of Sheet2 A1. This needs to be done on only one
employee at a time and the rest can't change.
I would envision one of two options: either a separate button for each
employee or a checkbox for each employee and a master button to change
passwords for all selected.
So far I can change all passwords at once but they all change to the same
password - hardly desireable.
--
Dave Lagergren
Manager - Data Applications
Wireless Management, Inc
Specializing in cellular wireless applications
"JLGWhiz" wrote:
> Based on what you described:
>
> Sub pswdchng()
> Dim newPswd As String
> newPswd = InputBox("Enter New Password.", "CHANGE PASSWORD")
> confrmPw = InputBox("Confirm Change by Re-entering New _
> Password.", "CONFIRM CHANGE")
> If newPswd = confrmPw Then
> Worksheets(2).Range("A1") = newPswd
> Else
> MsgBox "New Password Mismatch, Change Aborted."
> End If
> End Sub
>
> "Dave Lagergren" wrote:
>
> > I have a spread sheet that has one page with all our users, user names and
> > passwords. Another sheet has a random password generator. I would like to
> > be able to change the password for any user by using a macro or a button. I
> > can do it for all at once but I don't need/want to do that. My password is
> > store in sheet2 cell A1.
> >
> > --
> > Dave Lagergren
> > Manager - Data Applications
> > Wireless Management, Inc
> > Specializing in cellular wireless applications
|
Similar Threads
