Sub password()
Dim lngIndex As Long, lngRND As Long, strPW As String
Const PWD_LENGTH As Long = 8
Const USED_CHARS As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
Randomize Timer
Do
strPW = ""
For lngIndex = 1 To PWD_LENGTH
lngRND = Int(Len(USED_CHARS) * Rnd + 1)
strPW = strPW & Mid(USED_CHARS, lngRND, 1)
Next
Loop While Not strPW Like "*#*"
Debug.Print strPW
End Sub
VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Dim i, tx, Txt
Randomize Timer
Txt = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i = 1 To 8
tx = tx + Mid(Txt, Int(Rnd(Timer) * 62) + 1, 1)
Next i
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen