EFEMÉRIDES DO CALANGO

Já viu esse aqui?

08 outubro, 2012

Como desproteger uma planilha Excel

Abra a planilha, vá em Ferramentas, Macro, defina um nome (por exemplo, DESPROTEGE) e clique em Criar. Na tela que for aberta, cole o seguinte código:
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
Clique no botão executar (Play) e aguarde. Pronto.

Esta programação é usada para quebrar senhas que estejam no item "Desproteger planilha". Válido para Excel até a versão 2003.

Usei semana passada para editar uma planilha antiga lá no serviço.

Vi no Ironia Fina.
Related Posts Plugin for WordPress, Blogger...

Imprima o post!