Random Password Generator

[farhad]

Good Day

I have the following VB code that generates a 10 character alphanumeric password. This code works perfectly fine.

However I would like to change the code to include special characters in the password.

The characters are limited to !@#$&*

Sub TenCharPassword()
    Dim i As Integer, c As Integer, n As Integer, pw As String
    For i = 1 To 100
        pw = ""
        For n = 1 To 10
            c = Evaluate("=RandBetween(65,100)")
            If c > 90 Then c = c

 

[shg]

You need the code from post 3.

 

[farhad]

Hi shg

This the code I have that is generating error ?NAME

Sub farhad()
  With Range("A1:A100")
    .Formula = "=TenCharPassword()"
    .Value = .Value
  End With
End Sub
  Function TenCharPassword(numChars As Integer)
  Const sSym As String = "[EMAIL="ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$*0123456789"]ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$*0123456789[/EMAIL]"
  Dim i As Long
  
  For i = 1 To 10
   TenCharPassword = TenCharPassword & Mid(sSym, [=RandBetween(1,32)], 1)
    Next i
End Function

 

[Yongle]

This the code I have that is generating error ?NAME

(numChars As Integer) - not required

Sub farhad()
  With Range("A1:A100")
    .Formula = "=TenCharPassword()"
    .Value = .Value
  End With
End Sub

Function TenCharPassword[COLOR=#ff0000]()[/COLOR]
  Const sSym As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$*0123456789"
  Dim i As Long
   For i = 1 To 10
     TenCharPassword = TenCharPassword & Mid(sSym, [=RandBetween(1,32)], 1)
   Next i
End Function

The function should be placed in a standard module if used like this

 

[farhad]

Dear Yongle

my apologies for late reply. Your code has worked. Once again thanks for all your assistance.
Greatly appreciated.
Once again thanks