EXCEL PASSWORD BREAKER

Se usate Excel vi sarà di certo capitato di aver protetto con password un foglio e non ricordare più la password!
Se sfortunatamente questo è successo su un foglio di lavoro importante, con molti dati, vi sarà costato molto tempo è fatica ricuperare tutto il contenuto della tabella.

Ecco allora un metodo piuttosto semplice che permette di sbloccare un foglio protetto con password. Utilizza un breve programma scritto in VBA e funziona per i file Excel in formato .XLS cioè quelli di Excel precedenti alla 2010. Per quelli in formato .XLSX c'è da fare un piccolo passaggio supplementare, che vedremo.

Per prima cosa si apre il file Excel bloccato con password, avente estensione .XLS. Quindi si passa alla finestra del Visual Basic premendo i tasti Alt F11.

Ora si fa click con il tasto destro del mouse sulla scritta VBA Project. in alto a sinistra nel riquadro sottostante al menu File (dove trovate scritto anche Progetto-VBAProject). Scegliete la voce del menu Inserisci e poi Modulo. Nel riquadro di destra appare una finestra vuota pronta per la digitazione del programma VBA.

In questa finestra va inserito il seguente programma (fate Copia e Incolla di quanto riportato nelle righe sottostanti):

Sub PasswordBreaker()

'Breaks worksheet password protection.

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 "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

Ora è tutto pronto e potete premere il tasto F5 che avvia il programma e in pochi secondi sbloccherà il foglio Excel.

Per i fogli in formato Excel più recente, ovvero quelli che hanno estensione .xlsx. Bisogna fare una cosa in più: bisogna salvare il file nel vecchio formato Excel 97-2003.
Per fare ciò si sceglie Salva Con Nome e poi il formato Cartella di Lavoro Excel 97-2003(.xls).
Fatto questo è possibile usare Alt F11 per aprire l'editor VBA, aggiungere il programma Password Breacker e premere F5.

Buon lavoro a tutti con Excel.
M.