7/26/2019 Usando Macro para Quebrar Senhas.pdf

1/2

1 Usando Macro para Quebrar Senhas Bertolo

Usando Macro para Quebrar Senhas

mais comum do que se imagina.Voc inseriu uma senha de proteo naplanilha para proteger seus dados e ... perdeu (ou esqueceu) a senha. Use a macro aseguir para recuperar a planilha1.

Abra uma nova pasta de trabalho e clique em Ferramentas/Macro/Editor doVisualBasic. Na janela do Editor, clique em Inserir/Mdulo e insira a subrotina abaixo:

Sub senha_xl ( )

Di m i As I nt eger, j As I nt eger, k As I nt eger Di m l As I nt eger, m As I nt eger, n As I nt eger Di m i 1 As I nt eger , i 2 As I nt eger , i 3 As I nt egerDi m i 4 As I nt eger , i 5 As I nt eger , i 6 As I nt egerOn Er r or Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i 1 = 65 To 66For i 2 = 65 To 66: For i 3 = 65 To 66: For i 4 = 65 To 66For i 5 = 65 To 66: For i 6 = 65 To 66: For n = 32 To 126

Act i veSheet . Unpr ot ect Chr ( i ) & Chr ( j ) & Chr ( k) & _Chr ( l ) & Chr ( m) & Chr ( i 1) & Chr ( i 2) & Chr ( i 3) & _Chr ( i 4) & Chr ( i 5) & Chr ( i 6) & Chr ( n)I f Act i veSheet . Prot ect Cont ent s = Fal se ThenMsgBox "Senha: " & Chr ( i ) & Chr( j ) & _Chr ( k) & Chr ( l ) & Chr ( m) & Chr ( i 1) & Chr ( i 2) & _Chr ( i 3) & Chr ( i 4) & Chr ( i 5) & Chr ( i 6) & Chr ( n)Act i veWor kbook. Sheet s( 1) . Sel ectRange( "a1") . For mul aR1C1 = Chr( i ) & Chr( j ) & _

1Esta Macro quebra, apenas, a Senha de Proteo de planilha (Ferramentas/Proteger/Proteger planilha)no tendo nenhuma atuao na senha de abertura do Arquivo.

7/26/2019 Usando Macro para Quebrar Senhas.pdf

2/2

2 Usando Macro para Quebrar Senhas Bertolo

Chr ( k) & Chr ( l ) & Chr ( m) & Chr ( i 1) & Chr ( i 2) & _Chr ( i 3) & Chr ( i 4) & Chr ( i 5) & Chr ( i 6) & Chr ( n)Exi t Sub

End I fNext : Next : Next : Next : Next : NextNext : Next : Next : Next : Next : Next

End Sub

Volte para o Excel e clique em Ferramentas/Proteger/Proteger planilha.Na janela Proteger planilha, insira uma senhae clique em Ok; redigite sua senha najanela seguinte e clique em Ok novamente. Note que a planilha est protegida. Se voctentar digitar ou excluir algo, receber uma mensagem:

Sua planilha est protegida com a senha que voc definiu. Mas... e se vocesquecer a senha? Ou perder?

Ainda nesse arquivo, clique em Ferramentas/Macro/Macros.Na janela Macro que surge, clique em senha_xle, aps, em Executar.Aps algum tempinho, voc receber uma mensagem como esta:

Clique em Ok e sua planilha estar livre da proteo.