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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Quebrar senha de arquivo Excel com VBA
Quebrar senha de arquivo Excel com VBA
- Anexos
-
- Fluxo_CaixaII_M3_ferramenta_planejamento_financeiro (1).rar
- (608.47 KiB) Baixado 206 vezes