Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Quebrar senha de arquivo Excel com VBA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Aalec
Colaborador
Colaborador
Mensagens: 18
Registrado em: Ter Jan 27, 2015 5:46 pm

Quebrar senha de arquivo Excel com VBA

Mensagem por Aalec » Qua Mai 30, 2018 11:49 am

Bom dia, senhores(as)

Meu primo recebeu uma planilha do curso, mas não enviaram a senha e estão com "frescura" para disponibilizar o acesso. Diante disso, gostaria de quebrar a senha via VBA, será que é possível?

Eu estava usando esse código, mas sem sucesso:

Dim i As Integer, j As Integer, k As Integer
Dim 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 "A Senha foi quebrada com sucesso”"
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

Para melhor análise estou enviando a planilha anexa.
Anexos
Fluxo_CaixaII_M3_ferramenta_planejamento_financeiro (1).rar
(608.47 KiB) Baixado 14 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.



Responder