Generatore casuale di Password

rollis13, 09/01/2019 22.58:

---

Ecco alcune modifiche necessarie per realizzare la creazione di 100 passwords univoche in colonna B accodate ad eventuali già presenti.

Il pulsante d'avvio te lo puoi facilmente creare ed associarci la macro 'GeneraPassword'; mentre per la colonna A, secondo me, non servono caselle, basta anche una X.

Option Explicit

Dim varChar, arrayChar() As String
Dim variabile As String
Dim controlla As Boolean
Dim numero As Long
Dim numeroPassword As Long
Dim lunghezza As Long

Sub GeneraPassword()

    Dim a As Long
    Dim trovato As Boolean
    Dim pwd As Variant
    Dim controll As Boolean
    Dim ur As Long
    
    varChar = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
    arrayChar = Split(varChar, ",")
    numeroPassword = 100                            'passwords da generare
    lunghezza = 10
    numero = UBound(arrayChar)
    ur = Cells(Rows.Count, 2).End(xlUp).Row         'trova la prima riga libera in colonna B
    If ur = 1 Then ur = 0                           'se la colonna B è vuota predisponi per partire dalla riga 1
    For a = ur + 1 To ur + numeroPassword
        trovato = False
        Do While trovato = False
            pwd = genera()
            controll = controllo(variabile, a)
            'Debug.Print "pwd #" & a & ": " & variabile & " - " & "CTRL: " & controlla   '<= serve solo per verifica
            If controlla = True Then
                Cells(a, 2).Value = variabile       'riporta in colonna B la password univoca generata
                trovato = True
            Else
                Exit Sub
            End If
        Loop
    Next a
    
End Sub

Function genera()

    Dim b As Long
    Dim k As Long
    
    variabile = ""
    For b = 0 To lunghezza
        k = Int(Rnd() * numero)
        variabile = variabile & arrayChar(k)
    Next
    
End Function

Function controllo(password, termine)

    Dim c As Long
    
    controlla = True
    For c = 1 To termine
        If Cells(c, 2) = password Then              'confronta la nuova password con quelle già presenti in colonna B
            controlla = False
            Exit For
        End If
    Next c
    
End Function

---

rollis13, 10/01/2019 22.51:

---

Secondo me, senza crearti altri fogli di backup, ti basta proteggere la colonna B.
Seleziona l'intero foglio e nella formattazione delle celle togli la Protezione, ora selezione la colonna B e rimetti la Protezione nella formattazione (eventualmente anche per la cella G2) e poi attiva la protezione del Foglio, non serve mettere una password e lascia la spunta solo su 'Seleziona celle sbloccate'.
Nella macro aggiungi la gestione della protezione giusto il tempo per scrivere nelle celle in colonna B, così:

Sub GeneraPassword()
 
    Dim a As Long
    Dim trovato As Boolean
    Dim pwd As Variant
    Dim controll As Boolean
    Dim ur As Long
     
    varChar = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
    arrayChar = Split(varChar, ",")
    numeroPassword = 100                        'passwords da generare
    lunghezza = 16
    numero = UBound(arrayChar)
    ur = Cells(Rows.Count, 2).End(xlUp).Row     'trova la prima riga libera in colonna B
    If ur = 1 Then ur = 0                       'se la colonna B è vuota predisponi per partire dalla riga 1
    ActiveSheet.Unprotect                       '<= (nuova) togli protezione
    For a = ur + 1 To ur + numeroPassword
        trovato = False
        Do While trovato = False
            pwd = genera()
            controll = controllo(variabile, a)
            'Debug.Print "pwd #" & a & ": " & variabile & " - " & "CTRL: " & controlla   '<= serve solo per verifica
            If controlla = True Then
                Cells(a, 2).Value = variabile   'riporta in colonna B la password univoca generata
                trovato = True
            'Else                               '<= queste non servono (neanche prima servivano)
            '     Exit Sub                      '<= sono solo residui della macro originale
            End If
        Loop
    Next a
    MsgBox "Finito, create altre 100 password."
    ActiveSheet.Protect                         '<= (nuova) rimetti protezione
 
End Sub

---

rollis13, 11/01/2019 22.03:

---

Questa è la riga di codice che ti calcola l'ultima cella occupata nella colonna B:

ur = Cells(Rows.Count, 2).End(xlUp).Row

Se hai messo dei titoli nelle prime due celle la prima password verrà messa automaticamente nella prima cella libera, ovvero la terza.

Per bloccare lo scorrimento delle righe e/o delle colonne non serve il vba, basta utilizzare le normali risorse di Excel, ovvero, la funzione Blocca Riquadri che si trova nel menu Visualizza ... ma sai usare Excel ? o ti sei imbarcato in un progetto che va oltre le tue conoscenze. Si impara ad utilizzare il vba solo dopo aver conosciuto almeno le fondamentali di Excel.

---