DESCOBRIR SENHA
Pessoal estou precisando descobrir a senha de um arquivo do excel, será que alguém poderia me dizer como faço isso seja via vba, via vb tanto faz, o importante é que eu consiga descobrir esta bendita senha
tenta isso
Tente desproteger com a senha "AAABAABABBB?"
O Excel desprotege com uma senha DIFERENTE DA ORIGINAL e você conseguirá abrir sua planilha normalmente.
se num der entra aqui e da um aolhada
http://www.technetbrasil.com.br/forum/Search/default.aspx?SearchFor=1&SearchText=Monique%20da%20Silva%20losano
Se você usou a opção de proteger sua planilha Excel contra alterações e acabou
esquecendo a senha não precisa se preocupar, o código abaixo irá lhe mostrar
como remover a proteção destas planilhas...
é claro que existem muitas outras maneiras de fazer a mesma coisa, em
informática isto é regra. Mas como bom programador da linguagem Basic você
pode preferir fazer isto utilizando código em uma rotina geral, que servirá
para qualquer planilha ativa. Você poderá criar por exemplo uma macro e
atribui-la a um botão, sei lá. O importante é melhorar o código abaixo e
até adaptá-lo de acordo com seus objetivos e/ou necessidades.
Se o código não tiver outra utilidade, ainda valerá pelo menos como
curiosidade. Mas não esqueça, este código funcionará somente para a senha
implementada através do menu Ferramentas - Proteger - Proteger Planilha,
para remover outras senhas o código é diferente e demora muiiiiito mais
tempo.
Abra o Editor do Visual Basic do Excel, insira um módulo e cole o código
abaixo. Volte para planilha que está protegida, pressione Alt F8 e aguarde,
dependendo da senha e é claro da máquina, pode demorar um pouquinho
mas destrava.
Option Explicit
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
'---------------------
Dica postada no link : http://www.vbmania.com.br/vbmdetail.php?varID=1316
Feita por VENON
esquecendo a senha não precisa se preocupar, o código abaixo irá lhe mostrar
como remover a proteção destas planilhas...
é claro que existem muitas outras maneiras de fazer a mesma coisa, em
informática isto é regra. Mas como bom programador da linguagem Basic você
pode preferir fazer isto utilizando código em uma rotina geral, que servirá
para qualquer planilha ativa. Você poderá criar por exemplo uma macro e
atribui-la a um botão, sei lá. O importante é melhorar o código abaixo e
até adaptá-lo de acordo com seus objetivos e/ou necessidades.
Se o código não tiver outra utilidade, ainda valerá pelo menos como
curiosidade. Mas não esqueça, este código funcionará somente para a senha
implementada através do menu Ferramentas - Proteger - Proteger Planilha,
para remover outras senhas o código é diferente e demora muiiiiito mais
tempo.
Abra o Editor do Visual Basic do Excel, insira um módulo e cole o código
abaixo. Volte para planilha que está protegida, pressione Alt F8 e aguarde,
dependendo da senha e é claro da máquina, pode demorar um pouquinho
mas destrava.
Option Explicit
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
'---------------------
Dica postada no link : http://www.vbmania.com.br/vbmdetail.php?varID=1316
Feita por VENON
Tópico encerrado , respostas não são mais permitidas