Codice VBA per sbloccare un foglio Excel bloccato

Se hai mai dimenticato una password per uno dei tuoi fogli di lavoro Excel, sai quanto può essere frustrante.

Il codice usato in questa istruzione è uno dei più semplici che ho trovato. Genererà un codice utilizzabile che sbloccherà il tuo foglio protetto.

Non posso prendermi il merito per il codice perché l'ho semplicemente trovato in un momento di bisogno (e non riesco più a trovare dove si trova il sito) ... quindi non sarò di grande aiuto se non funziona per te ma io ho avuto successo con esso e ho pensato di condividere.

Passaggio 1: Apri VBA

Apri il foglio di lavoro in cui hai dimenticato la password.

Utilizzare Alt + F11 per accedere all'editor delle macro.
Una volta in VBA, fai doppio clic sul foglio che devi sbloccare dall'elenco dei menu a sinistra.
Questo aprirà la pagina delle dichiarazioni generali per il foglio.

Passaggio 2: Taglia e incolla il Code Breaker


Inserisci il codice qui sotto nella pagina delle dichiarazioni generali che hai aperto.

Non dovresti cambiare nulla, il nome del foglio ecc ... Basta tagliare e incollare.
_______________________

Sub PasswordBreaker ()

'Rompe la protezione della password del foglio di lavoro.

Dim i come intero, j come intero, k come intero
Dim l come intero, m come intero, n come intero
Dim i1 come intero, i2 come intero, i3 come intero
Dim i4 come intero, i5 come intero, i6 come intero
In caso di errore Riprendi Successivo
Per i = 65-66: Per j = 65-66: Per k = 65-66
Per l = 65 a 66: Per m = 65 a 66: Per i1 = 65 a 66
Per i2 = 65 a 66: Per i3 = 65 a 66: Per i4 = 65 a 66
Per i5 = 65 a 66: Per i6 = 65 a 66: Per n = 32 a 126
ActiveSheet.Unprotect Chr (i) & Chr (j) & Chr (k) & _
Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _
Chr (i4) & Chr (i5) & Chr (i6) & Chr (n)
Se ActiveSheet.ProtectContents = False Quindi
MsgBox "Una password utilizzabile è" & Chr (i) & Chr (j) & _
Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _
Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n)
Esci da Sub
Finisci se
Avanti: Avanti: Avanti: Avanti: Avanti: Avanti
Avanti: Avanti: Avanti: Avanti: Avanti: Avanti
End Sub
________________________

Passaggio 3: eseguire la macro

Una volta aggiunto il codice, esegui la macro selezionando Esegui dalla barra delle schede del menu nella parte superiore della schermata dell'editor VBA o premi semplicemente F5

Passaggio 4: utilizzare il codice generato

La macro tornerà al foglio di lavoro che si desidera rimuovere. Apparirà una casella di avviso con un codice utilizzabile.

Nella scheda del menu Rivedi, fare clic su Rimuovi protezione.
Inserisci il codice generato come password e il gioco è fatto. Il tuo foglio dovrebbe essere sbloccato!

Dovresti usare questo potere con saggezza e responsabilità solo per sbloccare i tuoi fogli di lavoro.

Articoli Correlati