小编ott*_*to0的帖子

我需要使用 VBA Excel 创建一个具有自定义密码复杂性的密码生成器，我发现这段代码工作正常，问题是当我关闭 XLS 文件并再次打开时，宏会生成相同的密码，因此不是完全随机的发电机：

Sub Password_Click()
'
' Bruno Campanini 14-02-2007 Excel 2007
' Statistica.xls Sheet: Sheet10 Button: Password
'
' Compone NumPSW Password formate da:
' NumAlpha caratteri alfabetici
' NumNonAlpha caratteri non-alfabetici
' NumNum caratteri numerici
' definiti random.
'
Dim AlphaChar(1 To 26) As String, NumChar(1 To 10) As String
Dim NonAlphaChar(1 To 30) As String
Dim i As Integer, j As Integer, NumPSW As Integer
Dim NumAlpha As Integer, NumNum As Integer, NumNonAlpha As …