Capita a volte di scordarsi la password che protegge un file Excel, senza andar scaricare ed installare programmi potenzialmente pericolosi, ecco una semplice macro che sblocca il file.

Due cose da mettere in evidenza, la prima non è farina del mio sacco ma recuperata in rete e non recupera la password originale ma solo sblocca il file

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