Come sbloccare foglio excel protetto da password

  1. Salva il file in formato xls. Se il file su cui stai lavorando è in formato “.xlsx”, dovrai prima convertirlo in formato Excel 97-2003 (.xls). Di seguito trovi le istruzioni da seguire per effettuare la conversione:[2]

    • Clicca sul menu File collocato nell’angolo superiore sinistro della finestra.
    • Clicca sulla voce Salva con nome.
    • Seleziona il formato Excel 97-2003 (.xls) dal menu a discesa “Salva come” o “Formato file”.
    • Clicca sul pulsante Salva.
    Ora premi la combinazione di tasti Alt+F11 per aprire l’editor della versione di Visual Basic incluso in Excel.

    Immagine titolata 6297644 15
  2. Immagine titolata 6297644 16
    4
    Seleziona il nome del file della cartella di lavoro visualizzato all’interno del pannello “Progetto – VBAProject”. È collocato nella parte superiore sinistra della finestra dell’editor. Assicurati di selezionare con il tasto destro del mouse la voce che contiene il nome del file con l’estensione “.xls”. Dovrebbe essere il primo dell’elenco di opzioni. Verrà visualizzato un menu.[3]
  3. Immagine titolata 6297644 17
    5
    Clicca sulla voce Inserisci del menu apparso. Verrà visualizzato un secondo menu.
  4. Immagine titolata 6297644 18
    6
    Clicca sull’opzione Modulo. In questo modo verrà creato un nuovo modulo all’interno del quale potrai incollare il codice riportato in questo metodo dell’articolo.
  5. Copia il codice del seguente script. Seleziona il codice visualizzato in questo passaggio, quindi premi la combinazione di tasti Ctrl+C (su Windows) o  Command+C (su Mac) per copiarlo:
    Sub PasswordBreaker()
        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 "La password è " & 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
    
  6. Immagine titolata 6297644 20
    8
    Seleziona un punto vuoto all’interno del nuovo modulo con il tasto destro del mouse e scegli l’opzione Incolla. Il codice verrà inserito automaticamente all’interno del riquadro del modulo.
  7. Immagine titolata 6297644 21
    9
    Premi il tasto funzione F5 per eseguire il codice. Excel provvederà a eseguire il codice inserito. L’esecuzione di questo passaggio potrebbe richiedere diversi minuti; quando sarà completa, verrà visualizzata una finestra di pop-up in cui sarà presente la password per rimuovere la protezione dal foglio.

    • La nuova password sarà composta da una serie casuale di caratteri e non corrisponderà a quella originale.

Print Friendly, PDF & Email