GENERATORE DI PASSWORD TRAMITE DOPPIOCLIC
Caro MaxTheRed,
ho un file che fa quanto da te richiesto
Nella riga gialla in alto devi inserire i caratteri che ti interessano
Nelle due celle verdi inserisci la Lunghezza della Password che vuoi generare e il numero di ripetizioni massime ammesse nella password.
Il modello genera una sequenza di caratteri casuali (fino a 16 caratteri) e verifica le ripetizioni.
Se le ripetizioni superano il numero massimo impostato, la password non viene archiviata e viene ripetuto il calcolo.
Se i test di validità sono superati allora la password generata viene accodata al ElencoPasswords (predisposto al momento per 2000 righe, ma estendibile a piacere estendendo il nome ElencoPassword)
Con un
DoppioClic sul rettangolo contenente la password generata la medesima password, se valida e se non è già presente nell'elenco, viene accodata all'elenco.
Ecco il codice di evento piuttosto semplice
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
npres = Application.WorksheetFunction.CountA(Range("ElencoPasswords"))
If Not Intersect(Range("PasswordGenerata"), Target) Is Nothing Then
ripeti:
Calculate
newpas = Target.Cells(1, 1)
valid = Range("Pvalida").Cells(1, 1)
newpres = Application.WorksheetFunction.CountIf(Range("ElencoPasswords"), newpas)
If valid = "NO" Or newpres > 0 Then
Beep
GoTo ripeti
End If
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Range("ElencoPasswords").Cells(npres + 1) = newpas
End If
Cancel = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Beep
End Sub
In conclusione :
1) basta fare un DoppioClic a ripetizione per generare tutte le password che si vuole
2) l'elenco risiede provvisoriamente sul foglio di lavoro da dove può essere copiato ovunque
3) il modello consente di impostare e controllare tutti i parametri : ElencoCaratteri, LunghezzaPassword, NumeroRipetizioni
Non riesco ad allegare il file; forse perché non è consentito oppure perché mi manca qualche permesso. Essendo nuovo sul forum devo chiedere agli amministratori. Saluti