Random character/password

Random password

I used the following code to generate random password from the cell name list containing aAbcdefgh…12345 etc.

= (MID(list,1+INT(RAND()*LEN(list)),1))

however the problem is each time I enter a text somewhere else in the worksheet and press enter, the above function gets activated automatically and the password keeps changing. Is there a way I can stop and start the function when I want to?

For example, say I want to have a list of forum such as exel forum, java forum, .net forum and have the corresponding password automatically generated just once until I change it later if I want to. The current problem is each time I try to type in a new forum name such java forum, all the old passwords change automatically. How can I stop this. Can I use buttons or what ever ?

Hey,
Open your file and click Alt+F11. VBA editor opens.
Goto Insert/Module and a new Module1 will open. Copy Paste the code below.

Sub generate_password()
Dim lst As String, pass As String
Dim pass_len As Integer
lst = "abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
pass_len = 8
For Each cll In Application.Selection
    pass = ""
    For i = 1 To pass_len
        pass = pass & Mid(lst, Int(Rnd() * Len(lst)), 1)
    Next
    cll.Value = pass
Next
End Sub

Add a button on the sheet (or a textbox). right click on it and select 'Assign Macro'. select the macro we added and hit OK.

so you can either just select a single cell or a bunch of cells and hit the button to generate random passwords.

to change the length of your password modify the line 'pass_len = 8'.

hope this is what you were looking for.
Cheers

Hi Shg,
When I tried my code again I did get the error the first time and then it worked fine. could you please explain what '+1' does? Thanks.