- 1 lowercase letter
- 1 number
- 1 lowercase letter
- 1 lowercase letter
- 1 number
- 1 lowercase letter
Sub GeneratePassword()
ActiveCell.Value = Chr(Rnd() * (122 - 97) + 97) & Chr(Rnd() * (57 - 48) + 48) & Chr(Rnd() * (122 - 97) + 97) & Chr(Rnd() * (122 - 97) + 97) & Chr(Rnd() * (57 - 48) + 48) & Chr(Rnd() * (122 - 97) + 97)
End Sub
No comments:
Post a Comment