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

Ora scarichiamo password.xla  

Se vogliamo fare tutto autonomamente evitando programmi e macro di terzi, possiamo seguire la seguente procedura:

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

Ufficio/Documenti 6/23/2011