Come recuperare la password di protezione del foglio di lavoro perso in Excel?

Impostiamo sempre delle password per proteggere alcuni fogli di lavoro importanti dal rischio di essere distrutti o modificati da altri. Ma se dimentichi le tue password, cosa puoi fare? Fortunatamente, Excel supporta alcuni codici VBA per recuperare la password di protezione del foglio di lavoro perso. Puoi affrontare questo problema nel modo seguente:

Recupera la password di protezione del foglio di lavoro perso in Excel con il codice VBA

Recupera la password di protezione del foglio di lavoro perso in Excel con il codice VBA

Il seguente codice VBA può aiutarti a rimuovere rapidamente le tue password originali in un foglio di lavoro.

1. Apri il tuo foglio di lavoro che è stato protetto in precedenza.

2. Tieni premuti i tasti ALT + F11 e si aprirà la finestra Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: recupera la password di protezione del foglio di lavoro perso

Sub PasswordRecovery()
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

4. Quindi clicca sul tasto F5 per eseguire questo codice e apparirà una finestra di dialogo; clicca su OK per chiuderla e le password del foglio di lavoro protetto verranno rimosse immediatamente.

Note:

1. Con questo codice puoi recuperare solo una password di protezione del foglio di lavoro alla volta; se ci sono più fogli di lavoro protetti, devi applicare questo codice uno alla volta.
2. Il codice sopra proviene da http://excelzoom.com/2009/08/how-to-recover-lost-excel-passwords/.

Articoli correlati

Come proteggere più fogli di lavoro contemporaneamente in Excel?

Come rimuovere la protezione da più fogli di lavoro contemporaneamente in Excel?