Password Generator in excel FILE

[poloniumra]

Hi everybody
I have generator password in excel, but sometime, my password have dulicated character, which make my password less secure, can any one help me with the fuction to help my password not have a dulicated character.
My password is in G1, the ingredient to make my password is from D5 to D7. Here is my excel file below
https://drive.google.com/file/d/1Uu4BkxKnalS-Sxkdp-auAup_m09Wehkg/view

 

[ParamRay]

Hello. I built a function you can use to generate random passwords without repeating any characters. Can call it using VBA or from a worksheet function.

Public Function GeneratePassword(Optional ByVal length As Integer = 16) As String

' ============= CHARACTER CODES ============
' Punctuation : 33-47, 58-64, 91-96, 123-126
' Digits      : 48-57
' Uppercase   : 65-90
' Lowercase   : 97-122
' ==========================================
  
  Dim chars As New Collection
  Dim nextId As Integer
  Dim counter As Integer
  Dim i As Integer
  
  On Error GoTo ErrorHandler
  If length < 1 Or length > 94 Then
    Err.Raise vbObjectError + 513, "GeneratePassword", "Argument out of range."
  End If
  
  For i = 33 To 126
    chars.Add Chr(i)
  Next i
  
  Do While counter < length
    nextId = Int(chars.Count * Rnd()) + 1
    GeneratePassword = GeneratePassword & chars(nextId)
    chars.Remove nextId
    counter = counter + 1
  Loop
  
ExitHandler:
  On Error Resume Next
  Do While chars.Count > 0
    chars.Remove 1
  Loop
  Set chars = Nothing
  Exit Function
  
ErrorHandler:
  GeneratePassword = vbNullString
  Resume ExitHandler
End Function

 

[poloniumra]

Hello. I built a function you can use to generate random passwords without repeating any characters. Can call it using VBA or from a worksheet function.

Public Function GeneratePassword(Optional ByVal length As Integer = 16) As String

' ============= CHARACTER CODES ============
' Punctuation : 33-47, 58-64, 91-96, 123-126
' Digits      : 48-57
' Uppercase   : 65-90
' Lowercase   : 97-122
' ==========================================
  
  Dim chars As New Collection
  Dim nextId As Integer
  Dim counter As Integer
  Dim i As Integer
  
  On Error GoTo ErrorHandler
  If length < 1 Or length > 94 Then
    Err.Raise vbObjectError + 513, "GeneratePassword", "Argument out of range."
  End If
  
  For i = 33 To 126
    chars.Add Chr(i)
  Next i
  
  Do While counter < length
    nextId = Int(chars.Count * Rnd()) + 1
    GeneratePassword = GeneratePassword & chars(nextId)
    chars.Remove nextId
    counter = counter + 1
  Loop
  
ExitHandler:
  On Error Resume Next
  Do While chars.Count > 0
    chars.Remove 1
  Loop
  Set chars = Nothing
  Exit Function
  
ErrorHandler:
  GeneratePassword = vbNullString
  Resume ExitHandler
End Function

Thank you for your code, but the problem is i have some special character in my password like math symbol, japan character,... So it is impossible to use the code 33-47, 58-64, 91-96, 123-126, moreover, I have create this excel file and use it in Android smartphone, so is there any way to solve my fuction to prevent duplicate character
Thank you for your support