Como desbloquear arquivos protegidos para edição Microsoft Office 2007 com VBA

Segue abaixo um procedimento com uma macro para desbloquear em apenas alguns segundos uma planilha protegida por senha no EXCEL.

Siga os passos conforme indicados que não tem como errar:

Passo 1: Abra a planilha protegida e pressione ALT+F11;

Passo 2: Se você fez certo o passo anterior agora deverá estar aberto o Microsoft Visual Basic.
Vá em INSERIR > MÓDULO

Passo 3: Insira a rotina abaixo copiando e colando desde a linha “’Desproteger Planilha” até “End Sub”;

'Desproteger Planilha
Sub DesprotegerPlanilhaAtiva()
 
Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n 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

Passo 4: Digite ALT+F11 novamente para retornar a planilha protegida, e execute a macro. Se você não achar a opção de macro digite ALT+F8. Selecione sua macro (DesprotegerPlanilhaAtiva) e clique em executar;

Passo 5: Aguarde alguns segundos e após a execução da macro será exibida a mensagem “On usable password ########”.
No lugar dos # havera a senha que você pode ir até o menu e desproteger a planilha.

Pronto agora você pode editá-la como quiser.
Espero que consigam e que essa dica tenha sido útil.

Continue Reading