| Come rimuovere la password da file e fogli Excel protetti - Guide informatica

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
  • Commenti Blogger
  • Commenti Facebook

1 commenti:

  1. E per word versione 2002 che c'è di similare ?
    Grazie

    RispondiElimina

Item Reviewed: Come rimuovere la password da file e fogli Excel protetti Rating: 5 Reviewed By: Stefano Izzo