Una semplice funzione che consente di generare una password di lunghezza impostate utilizzando un insieme di caratteri imposato.
Permette di vedere come si possono utilzzare alcune funzioni di
manipolazione delle stringhe come Len e Mid.
Public Function GeneratoreDiPassword(
ByVal LunghezzaPwd As Long)
As String
Dim res
As String
' insieme dei caratteri possibili per la password
Caratteri = "@#$%^&" & _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
"abcdefghijklmnopqrstuvwxyz" & _
"0123456789"
' inizializza il generatori di numeri casuali usando l'ora attuale in secondi
Randomize
Timer
' crea la password un carattere alla volta
For i = 1
To LunghezzaPwd
pChr =
Int(
Len(Caratteri) * Rnd) + 1
iChr =
Mid(Caratteri, pChr, 1)
res = res & iChr
Next i
GeneratoreDiPassword = res
End Function
L'esempio completo é scaricabile da questo link:
Es187.xlsm (a questo link le info per
attivare le macro se risultano bloccate), il modulo VBA con le funzioni da questo link:
Es187.bas
Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.
