Come rimuovere la password dei fogli Excel bloccati – 2

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.

4) 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)

Precedente
Total Views Views Today

Nessun commento ancora

Leave a reply