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

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

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