Guida: rimuovere la password dei fogli Excel bloccati

Rimuovere la password dei fogli Excel.

Vi sarà capitato, come è successo oggi a noi, di dover modificare un foglio Excel che era stato protetto dalla modifica con password tramite l’opzione “Protezione foglio“. Vediamo come risolvere il problema e rimuovere la password di un foglio Excel protetto da modifica…

La protezione con password dei fogli di lavoro Excel, permette di ottenere celle bloccate in cui non è possibile scrivere.
Spesso sono file Excel che abbiamo creato in passato, ma di cui non ricordiamo più la password.
Dopo mille tentativi non è più necessario scoraggiarsi: con una piccola procedura in VBA (che dovrete semplicemente incollare nell’editor Visual Basic integrato in Excel) potremmo ora sbloccare le celle, e scegliere una nuova password se vogliamo bloccarle nuovamente per proteggerle dalla modifica.
Si tratta praticamente di una procedura che esegue un crack della password di Excel.

Per fare chiarezza, questo è il pulsante per bloccare e sbloccare le celle dalla modifica nei file Excel:

Ecco la guida per sbloccare file Excel protetti con password (password crack):
1) aprite il vostro file ed visualizzate il foglio bloccato di cui non ricordate la password

2) premete sulla tastiera Alt+F11 per aprire l’editor VBA o cliccate su “Visualizza Codice” nel menù “Sviluppatore”.
Se non avete l’opzione “Sviluppatore” nel menù superiore, dovrete attivarla dalle opzioni di Excel: File / Opzioni / Personalizzazione barra multifunzione / Abilitate sulla destra la voce “Sviluppo”

3) Create un nuovo modulo cliccando con il pulsante destro sulla voce che riporta il nome del vostro file sulla sinistra, poi Inserisci / Modulo:

4) nello spazio bianco che si è creato alla vostra destra, semplicemente incollate il codice che trovate nella pagina successiva di questo articolo, otterrete così questo risultato:

Di seguito il codice VBA da copiare per ottenere lo sblocco dei fogli Excel protetti da password:

Sub SbloccaFogliExcel()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 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)
If ActiveSheet.ProtectContents = False Then
MsgBox “Foglio Excel sbloccato. Powered by Ing. Giuseppe Frisco ”
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Si tratta praticamente di una piccola procedura che ricorsivamente tenta di sbloccare il foglio Excel generando password.

5) Cliccate il pulsante RUN in alto (a forma di triangolino “Play” verde) o premete F5 sulla tastiera per eseguire la procedura di sblocco del foglio Excel

Vedrete, ci vorranno pochi secondi per ottenere il messaggio “Foglio Excel sbloccato.”

Se avete altri fogli bloccati nel vostro file Excel, basta visualizzarli e ripetere la procedura dal punto 1)