Desprotegendo planilha do Excel

É estava eu com uma baita dor de cabeça de refazer uma planilha bem especial para meu chefe. Portanto, apelei para a boa e velha programação VBA. Abaixo o código para desproteger planilhas... :D ...


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". Para senhas de abertura e gravação, use programas específicos como os disponíveis para download em
http://www.officerecovery.com/excel/
http://www.elcomsoft.com/aopr.html
http://www.passwordservice.com/excel/
Válido para Excel até a versão 2003.

Comentários

Postar um comentário

Postagens mais visitadas deste blog

Museu do Atari libera código fonte

ÉEEEE isso mesmo, o Museu do Atari achou bolando no lixão da antiga sede os códigos de 13 jogos, disponibiliza para download em seu SITE , eles pedem no final: Note: If you are going to Mirror these sources or place them onto your own site, please have the respect and courtesy to include with them - Source: www.atarimuseum.com as these wouldn't exist if I hadn't of climbed into a filthy dumpster at 3am in the morning behind the old Atari building in Sunnyvale and salvaged them and restored them from their diskettes. Resumindo: Se você for utilizar esses códigos em seu site, não esqueça zé ruela de dizer da onde você tirou, porque tiramos no calar da madruga do antigo prédio da Atari. belê? Ahhh gente, não é nada LIVRE, os caras acharam no lixão e estão disponibilizando, para aficcionados, ou para você estudar e tals, eu agora tô endoidando aqui vendo uma ruma de código do pacman, que porra é isso?!! O nome disso é Assembly, basic e por ae vai... * MAIN ROUTINE FOR MS ...
Leia mais

Algoritmos com Visualg no Linux

Pessoal, Hoje na aula do curso de Matemática da UFERSA, começamos o básico sobre programação, com os primeiros passos dos algoritmos. Em todos os computadores no laboratório utilizamos o Linux Educacional 4.0 (já existe uma versão mais nova aqui ) . Foi descoberto uma dificuldade para utilizar a ferramenta no aprendizado de algoritmos Visualg da empresa Apoio Informática . Ele não tem uma versão para linux, então consegui utilizar com o Wine , que já vem instalado no Linux Educacional. Postarei um instalador em shell script , e  vídeo passo-a-passo sobre a instalação no Linux. Até breve! Download Visualg 2.0
Leia mais

Fórmula de Bhaskara

# -*- coding: cp1252 -*- # Formula de Bhaskara by tchandy from math import sqrt import sys def getvalor(): return float(numb) ** 2 - 4 * float(numa) * float(numc) print print print "Formula de Bhaskara" print print while 1: try: numa = float(raw_input("Insira o valor de A: ")) print numb = float(raw_input("Insira o valor de B: ")) print numc = float(raw_input("Insira o valor de C: ")) print break except: print print "Insira um Numero Valido" print while 1: try: res1 = (- float(numb) + sqrt(getvalor())) res2 = (- float(numb) - sqrt(getvalor())) x1 = res1 / (2.0 * float(numa)) x2 = res2 / (2.0 * float(numa)) print "O Resultado eh" print "X1 = %s." % x1 print "X2 = %s." % x2 break except: print print "Nao existem raizes para esses numeros" print sys.exit(...
Leia mais