Comments on: Excel VB | random password generator

By: okili

okili — Tue, 21 Jul 2009 22:08:34 +0000

Thank you for your answer, now it works well. I have Excel 2007, not 2003, the randbetween function does work in Excel main window but it does not in VB Editor, I don’t know why, probably something is wrong with installation. Fortunately the equivalent function does the same thing.
Now as I see I should have used Rnd() instead of just Rnd and another one is that I defined c as Integer (don’t know why :D ) not as string.

So finally, to sum up:
We got the simple and smart function, with the following syntax: pass(Length); it chooses randomly symbols from the following ranges: A-Z, a-z, 0-9; and creates the password of the defined length :)

By: Simon Page

Simon Page — Tue, 21 Jul 2009 12:22:21 +0000

Take it you mean you only have Excel 2003 as Randbetween works fine in Excel 2007. The equivalent of this is:

INT(RAND()*(b-a)+a)

So looks like you are almost there, here it is with corrections:

Function pass(Length As Integer)

Dim p As String
Dim c As String

p = “”

For i = 1 To Length

x = Int(Rnd() * 4)

If x = 1 Then c = Chr(Int(Rnd() * (57 - 48) + 48))
If x = 2 Then c = Chr(Int(Rnd() * (90 - 65) + 65))
If x = 3 Then c = Chr(Int(Rnd() * (120 - 97) + 97))

p = p & c

Next i

pass = p

End Function

By: okili

okili — Mon, 20 Jul 2009 17:43:45 +0000

I tried to modify the function to get what I wanted but something went wrong, here is the code which i tried to use:

Function pass(Length As Integer)

Dim p As String
Dim c As Integer

p = “”

For i = 1 To Length
x = Int(Rnd * 2 + 1)
If x = 1 Then c = Chr(Int(48 + Rnd * (57 - 48)))
If x = 2 Then c = Chr(Int(65 + Rnd * (90 - 65)))
If x = 3 Then c = Chr(Int(97 + Rnd * (122 - 97)))
p = p & c
Next i

pass = p

End Function

By: okili

okili — Mon, 20 Jul 2009 17:41:03 +0000

Unfortunately the randbetween function does not work for me (I have excel 2007)…

By: Simon Page

Simon Page — Mon, 13 Apr 2009 15:18:49 +0000

Thanks David for that contribution!

By: David Z

David Z — Fri, 03 Apr 2009 17:01:18 +0000

I wrote a fairly simple macro that uses upper & lower case letters, numerals, and a few special characters (forcing one of each type). Below is VBA for a 10-character password

Sub PasswordGenerate() 'Creates a password 10 characters long 'with at least 1 upper & lower case letters, 1 number, and 1 special character ' 'Recorded by David Z, April 3, 2009 ' ' Dim l, x, c As Integer Dim p, p1, p2 As String


p = ""
'Force at least one of each character type

    c = RandBetween(35, 38) 'Special characters #, $, %, &

        p = p & Chr(c)

    c = RandBetween(48, 57) 'Number

        p = p & Chr(c)

    c = RandBetween(65, 90) 'Upper case

        p = p & Chr(c)

    c = RandBetween(97, 122) 'Lower case

        p = p & Chr(c)
'Create a string variable 6 characters long, randomizing characters, numbers, upper & lower case letters

    For l = 1 To 6

        x = Empty 'Just in case

        x = RandBetween(1, 4) 'Choose a random number

            If x = 1 Then c = RandBetween(35, 38) 'Specials

            If x = 2 Then c = RandBetween(48, 57) 'Numbers

            If x = 3 Then c = RandBetween(65, 90) 'Uppers

            If x = 4 Then c = RandBetween(97, 122) 'Lowers

        p = p & Chr(c) 'concatenate old password & random character

    Next l
'Now randomly re-arrange the characters in the password string

x = RandBetween(0, 9)

    p1 = Left(p, x)

    p2 = Right(p, Len(p) - x)
p = p2 & p1 'Password is ready!
Selection.Value = p

End Sub