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 insieme 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” sulla voce di menù “Sviluppatore” (disponibile solo se l’avete attivata dalle opzioni di Exce.

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

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

Sub SbloccaFogliExcel()
'Sblocca i fogli excel bloccati da password. iSocial.it
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 iSocial.it "
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.