Come rimuovere la password da file e fogli Excel protetti

Per fare ciò prima di tutto abbiamo bisogno di  Advanced Office Password Recovery Pro 3.10

1. Apriamo la cartella di lavoro Excel su cui vogliamo rimuovere la protezione, ed apriamo l’editor VBA tramire la combinazione di tasti Alt+F11 oppure cliccando sul tab Sviluppo –> Visual Basic
2. Si aprirà l’editor VBA,  dirigiamoci su Inserisci e clicchiamo Modulo
3. Incolliamo il codice riportato di seguito nel nuovo modulo ed eseguiamo la macro

Option Explicit

Dim arr As Variant
Dim arr2(30) As Long

Sub IniziaArr2()
Dim i As Integer

arr = Array(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024 _
, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144, _
524288, 1048576, 2097152, 4194304, 8388608, 16777216, _
33554432, 67108864, 134217728, 268435456, 536870912, _
1073741824)
‘valori da 2^0 a 2^30
For i = 0 To 30
arr2(i) = arr(i)
Next i
End Sub

Function decbin(dec As Long) As String
Dim i As Integer, a As Integer, bin As String

bin = “0″ ‘nel caso dec sia = 0
For i = 30 To 0 Step -1
If dec And arr2(i) Then
bin = “”
For a = i To 0 Step -1
Select Case dec And arr2(a)
Case 0
bin = bin & “0″
Case Else
bin = bin & “1″
End Select
Next a
Exit For
End If
Next i
decbin = bin
End Function

Sub psw2()
Dim i As Long
Dim start As Single
Dim bin As String

Call IniziaArr2

start = Timer
On Error Resume Next
i = 0
Do
i = i + 1
bin = decbin(i)
ActiveSheet.Unprotect Password:=bin
Loop While ActiveSheet.ProtectContents = True

MsgBox “La password è stata rimossa con ” & _
bin & ” che è il binario di ” & i & _
Chr(10) & “il programma ha impiegato ” & _
Timer – start & ” secondi”

Debug.Print bin & ” ” & i
End Sub

Una volta terminato avremo il nostro foglio sbloccato da password

Tag simili :  rimuovere password file excel    rimuovere protezione file excel    togliere password excel