Desproteger planilha com senha.

Postado em 19 de janeiro de 2010 · Categoria: Dicas

Para desbloquear uma planilha protegida por senha, será necessário criar uma macro.

Testamos esta macro no MS Office 2007.

  • Abra o MS Excel 2007.
  • Clique na aba DESENVOLVEDOR (Como habilitar a aba desenvolvedor).
  • Clique no botão MACROS.
  • No campo NOME DA MACRO, digite por exemplo “DesprotegerPlanilha” [Sem aspas].
  • Clique no botão CRIAR
  • Copie e cole o código abaixo.
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 "Planilha desprotegida com sucesso!!!"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
  • Execute o código apertando F5 do teclado.
  • Aguarde a mensagem de conclusão.

Pronto. A planilha estará desbloqueada.

OBS.: Utilize apenas este recurso para planilhas de sua autoria, onde a senha foi esquecida. Respeite planilhas de terceiros que decidiram protegê-la por senha.

Fonte: http://www.guiadohardware.net/comunidade/desproteger-planilha/299297/