Como desproteger planilhas do EXCEL e remover senhas – Tutorial


Descubra como remover a proteção por senha de muitos arquivos do Excel, que acabam impedindo a edição.

1. Abra o arquivo bloqueado.

2. Aperte ALT + F11, no teclado:

tutorial excel 1

3. Clique em Executar Macro, na nova janela (seta verde)

tutorial excel 2

4. Na janela, escreva “senha” e aperte “Criar”

tutorial excel 3

5. Em código, copie e cole os seguintes comandos:

Sub PasswordBreaker()
‘Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 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 “One usable password is ” & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

6. Feito isso, apague as linhas “senha” e End Sub, como na imagem abaixo (clique para ampliar):

tutorial excel 4

7. Agora, clique em Executar Macro e aguarde (não tente fazer nada, o processo deve levar cerca de 60 segundos).

tutorial excel 5

8. Por fim, uma janela irá aparecer, com a senha disponível para desbloquear a planilha. Ela deve desbloquear automaticamente, mas a senha você deve usar para desbloquear as outras páginas, no botão Revisão>Desbloquear Planilha.

tutorial excel 6

Obs: o fim deste tutorial é meramente educativo, para aqueles que esqueceram a senha de algum arquivo ou necessitam removê-la.

Anúncios
Publicado em Tutoriais. Tags: , . 204 Comments »

204 Respostas to “Como desproteger planilhas do EXCEL e remover senhas – Tutorial”

  1. Anônimo Says:

    A planilha está travando e não desbloqueia… acho que é porque minha senha tem 16 caracteres… Por favor me ajuda!!!

    • Anônimo Says:

      Deu super certo! Quando o comando identificar algum erro, basta vc retirar o erro grifado com o comando dando delete e tentar novamente, deletando os erros identificados até que ele processe e libere a planilha.
      Foi de muito valia a orientação acima.
      Obrigada!!!!

      • Henrique Melo Says:

        Estou tentando desbloquear minha planilha, porém quando coloco os comandos, essas mensagens ficam vermelhas ( ‘Breaks worksheet password protection. ); ( MsgBox “One usable password is ” & Chr(i) & Chr(j) & _
        Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
        Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) )), por que?

      • Anônimo Says:

        Já eu aperto ALT F11 e não acontece nada!

    • Henrique Gomes Says:

      apareceu esta mensagem “The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable
      o que fazer?

    • Anônimo Says:

      troquei as aspas no primeiro código, removi o sinal de sublinha que tem no final das linhas msgbox e coloquei esse trecho em uma só linha até chr(n). Deu certo.

  2. Anônimo Says:

    não funcionou deu o erro de compilação erro sintase

    • kleberhs007 Says:

      É porque ele colocou ´ na linha de comentário ao invés de aspas simples (‘) e ele usou “ ´´ para fechar a mensagem do MsgBox ao invés de abrir e fechar a mensagem com aspas duplas (“). Faça as substituições devidas e o código deverá funcionar.

      • Thiago Says:

        Obrigado Kleber, a dica da correção funcionou

      • Rafael Says:

        Boa tarde!!

        Obrigado pela resposta, isso mesmo, deu erro de compilação com a troca como explicado acima deu certo.

        Abraços

      • Anônimo Says:

        Kleberhs007, sem palavras cara… sua dica é top… 100% funcional aqui!!!

      • Zé Walter Says:

        Qual o código correto, meu caro? esse teu comentário tá muito confuso

      • Diogo Albuquerque Says:

        @kleberhs007, show cara, solucionou aqui bacana. Grato poe sua observação monstra. Abs.

      • sintraafor Says:

        obg kleber sua dica foi magnifica funcionou !!!!! abraço

      • Anônimo Says:

        Perfeito!! Valeu!!

      • Rhutênio Says:

        Parabéns Kleber!!! Vc salvou uma vida.

      • LAERCIO NASARIO Says:

        Boa tarde!

        tenho uma planilha pra desbloquer e nao consigo.
        Você pode me ajudar?

      • LAERCIO NASARIO Says:

        bom dia!
        Estou tentando destravar uma planilha e nao consigo, se eu te enviar você pode destravar e me enviar novamente?

    • JOSÉ Says:

      Coloco a senha AAAABBAAAAA[ e aparece a mensagem dizendo que a senha não está correta. O que fazer?

      • Anônimo Says:

        kkkkkkkkkkkkkkkkkkkkkkkkkkkk… bota a palavra SENHA antes do código AAAABBAAAAA[ que funciona

    • Simone Ribeiro Says:

      O meu também deu o mesmo erro de sintese de compilação, ja copiei todos os outros, li todos comentarios, troquei aspas mais continua dando problema

      • Fernanda Says:

        o meu estava danto erro na 2 linha, arrumei com aspas e parou de dar erro nessa parte
        Sub PasswordBreaker()
        ‘Breaks worksheet password protection.

        agora estou tentando ajustar um erro de compilação na msg box – o argumento não é opcional

      • Marcio Says:

        MsgBox tem que ter parêntese abrindo e fechando.

  3. Luiz Says:

    Não consegui remover aparece a seguinte mensagem: Erro de compilação Erro de sintaxe…

    • roberto Says:

      ´somos 2

  4. Reinaldo Says:

    Quando clico em Executar Macro (passo 7.), aparece uma janela de alerta “Microsoft Visual Basic”, com a seguinte mensagem: “Erro de compilação: Erro de sintaxe”

  5. Alan Says:

    Da erro de compilação e erro de sintaxe

  6. Douglas Says:

    deu um erro de compilação. Erro de sintaxe….O que faço

  7. Andy Says:

    está dando erro. “Erro de compilação: Erro de sintaxe”

  8. infoxp Says:

    Quando preparei o tutorial, funcionou perfeitamente. Vocês apagaram as linhas corretamente?

  9. Anônimo Says:

    Os problema são as aspas. Cole o código e redigite “.

    • Anônimo Says:

      nem redigitando as aspas deu

  10. Jovane Says:

    Funcionou certinho… parabéns!!

  11. Ricardo Says:

    meu esta dando erro memória insuficiente

    • mariana Says:

      conseguiu resolver esse erro? o meu apareceu a mesma coisa

  12. Anônimo Says:

    Funcionou bem!!
    Obrigado.

  13. Pablo Says:

    O codigo não esta funcionando corretamente, esta dando erro nesta linha” Breaks worksheet password protection.”

    • Anônimo Says:

      Coloca aspa antes ‘Breaks worksheet password protection. Basta só apagar a que tem lá e digitar novamente no seu teclado onde tiver ( ‘ ) e onde tiver ( ” ) basta apagar e digitar novamente.

      • Anônimo Says:

        Deu certo, obrigada!

  14. ERNANDES DE SOUZA SANTANA Says:

    Boa Tarde Galera!!!! Tentei o código acima não funcionou ai tentei esse:
    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

    Podem colocá-lo todo e executar a macro que funciona!!!!

    • FELIPE Says:

      Worked very good. tks.

    • VAVA Says:

      TIVE QUE TIRAR ESTA MENSAGEM DO SEU AÍ DEU CERTINHO
      MsgBox “Planilha desprotegida com sucesso!!!”

      DEPOIS ACABEI NÃO CONSEGUINDO SALVAR SEM DESBLOQUEAR…. TEREI QUE TENTAR DE NOVO, POIS É UM POR UM…
      VALEU

      • Anônimo Says:

        Tentei os dois codigos e não tinha funcionado…tirando essa msg funcionou!! Tks

    • Márcio Says:

      Para dar certo tem que trocar as aspas depois de MsgBox por outro formato ( ” )!

      • Anônimo Says:

        funcionou perfeitamente sem a mensagem.. tks

    • iara Says:

      é só trocar as aspas por aspas normais do teclado.. so isso! funcionou perfeito. obrigada

    • Fernando Says:

      Resolvido !!!!!!!!!! Valeu

    • andre Says:

      otimo,,,funcionou perfeitamente

    • Anônimo Says:

      Muito Show !! Valeu

    • Anônimo Says:

      mas com este codigo eu nao consegui a senha …

    • Anônimo Says:

      Valeu, funcionou com o seu jeito!

    • Anônimo Says:

      Agora sim deu certo, ao incluir os comandos, temos que retirar MsgBox “Planilha desprotegida com sucesso!!!” e dar sequência. Muito obrigado.

    • Anônimo Says:

      FUNCIONA PERFEITAMENTE
      NOTA 10…

    • Wesley Says:

      funcionou certinho mano brigadão mesmo uhulll

    • Anônimo Says:

      Deu certo, somente tenque tirar a mensagem MsgBox “Planilha desprotegida com sucesso!!!”
      ai funciona certinho.

      Obrigado

    • Wagner Cristiano Says:

      Show de bola! Esta dica funfou legal!

    • Anônimo Says:

      deu certo!!!

    • Diego Sanderson Silva do Amaral Says:

      ERNANDES DE SOUZA SANTANA vlw cara funcionou!!! tnks man.

    • Joao Says:

      Puta que Pariu, Deu certo aahahahah

    • Anônimo Says:

      show

    • Tiago Felipe Says:

      Show! Super indico! Este script resolveu meu problema!
      Obrigado!

    • Yara Lima Says:

      funcionou perfeitamente!

    • Marina Says:

      Opinião de leiga: Com esse código e substituindo as aspas da linha onde consta erro (a linha aparece destacada) dá certo. Retomando às aspas: você deve apagar e digitar de novo. E não esquecer de apagar a primeira e a última linha. No final, nem precisa digitar nada… a planilha já aparece desbloqueada. Super grata!!!

  15. thonnyoliveira Says:

    é só redigitar as aspas onde tem que funciona direitinho…

  16. JOSE CARLOS Says:

    NO MEU EXCELL NÃO APARECE A TELA DO PASSO 3 (MACRO)

  17. Rômulo Nascimento da Silva Says:

    Não funcionou. Deu erro na primeira linha ‘Breaks worksheet password protection. Este código funciona para qualquer versão de excel? Eu uso o 2010. Por gentileza, caro amigo, reveja o código pois todos estão relatando problema. Tentei substituir ‘ por ” na primeira linha, mas ainda assim, não funcionou. Desde já, obrigado!

  18. Aymar Penedo Says:

    Substituir ´Breaks… por ‘Breaks… e substituir MsgBox ´´One usable password is´´ por MsgBox “One usable password is” e executar.

    • Waldir Jr, Says:

      Show de bola! Com essas alterações funcionou aqui!

  19. Anônimo Says:

    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

  20. Anônimo Says:

    no meu quando coloco pra criar aparece a barra para colocar a senha

    • Gabriel Fontana Says:

      no meu tbm acontece isso!!
      oq fazer??

  21. Anônimo Says:

    FIZ O QUE DISSERAM E FUNCIONOU!
    thonnyoliveira Says:
    quarta-feira, 24 setembro, 2014 – 10:51 am às 10:51 am
    é só redigitar as aspas onde tem que funciona direitinho…

  22. Maxwell Fernandes Says:

    obrigado! Eu coloquei o primeiro código e só troquei as ” ” e na primeira linha troquei as ‘ ‘ rodou perfeitamente. Vlw, salvou meu dia!

  23. Anônimo Says:

    Eu usei codigo abaixo e onde tem ASPA eu digitei novemnte e deu certo
    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

    • popes Says:

      Funciona. Tive de apagar a linha
      MsgBox “Planilha desprotegida com sucesso!!!”
      executar e ficou desprotegida.

      Tenho o office 365 (2015)

      • Anônimo Says:

        Vlw !!!!

    • Anônimo Says:

      Na mosca!

  24. Anônimo Says:

    Pessoal estava com o mesmo problema, ao analisar o código colado no VBA, percebi que as aspas e o acento haviam sido alterados.
    Basta corrigi-los
    ‘Breaks worksheet password protection.
    PARA
    ‘Breaks worksheet password protection.

    e

    MsgBox “One usable password is ” & Chr(i) & Chr(j) & _
    para
    MsgBox “One usable password is ” & Chr(i) & Chr(j) & _

    Abraço

  25. Anônimo Says:

    Pode ser usado o primeiro código. apenas coloque aspa ‘ nos seguintes locais: ‘Breaks worksheet password’ e ‘MsgBox’

  26. Cesar Says:

    Olá. Funcionou aqui tirando algumas linhas, ficará como abaixo:

    Sub PasswordBreaker()
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 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
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

    Funcionou perfeitamente.

    • Anônimo Says:

      finalmente um codigo que deu certo

    • Anônimo Says:

      Este deu certo !!!

    • marcus vinicius Says:

      muito obrigado ,deu certinho.

  27. Vanessa Says:

    Valeu!
    Redigitei as aspas, onde tem, e funcionou.

  28. Marcelo Guimarães Says:

    Tentei com esse último código e não apresentou erro mas, está aguardando executar a mais de 5 minutos.

  29. Anônimo Says:

    Valeu! Funcionou perfeitamente.
    O Segue pra quem está dando erro de sintaxe é reescrever as ASPAS dupla e simples do código.

  30. Anônimo Says:

    Bom dia estou a tentar usar o código e dá-me o seguinte erro: “Can’t find project or library” na linha “ActiveSheet.Unprotect Chr (i)”. Nunca usei o VBA e não sei como resolver o problema. Poderiam ajudar?

  31. Anônimo Says:

    Estou a tentar usar esse código e não está a funcionar. Dá-me o seguinte erro: “Can’t find project or library” na linha de código “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)”. Nunca usei o VBA, é a primeira vez. Será que poderiam ajudar a resolver o problema?!

  32. Anônimo Says:

    Muito bom! Parabéns. Funcionou perfeitamente!!!

  33. Anônimo Says:

    Muito Bom

  34. Roger Says:

    Muito bom
    Funcionou na perfeição
    Obrigado

  35. Anônimo Says:

    Parabens amigo ! Perfeito.

  36. Everton Says:

    Pessoal, boa tarde.
    Alguém sabe como faço para não permitir que um novo formulário seja acessado? Ou colocar senha para criar um novo formulário??
    Porque assim como querem quebrar uma senha, eu quero que não quebrem uma senha com uma macro.

    Muito obrigado!

    Abs,
    Everton

  37. Anônimo Says:

    ATENÇÃO! PARA FUNCIONAR CORRETAMENTE É SÓ REDIGITAR AS ASPAS (” ‘) NO TEXTO.

  38. Gustavo Says:

    redigitei aspas com o primeiro código fiquei aguardando mais ñ aparece a outra tela alguém pode me ajudar?

    • Caio Félix Says:

      alterei as aspas ate roda mas fica carregando e não mostra senha nenhuma

  39. Cicero Silva Says:

    Pessoal tem um pequeno erro na hora de colar e copia, é só colocar uma ‘ aspa, antes de BREAKS e antes de MSGBOX!!! Aguardar o processamento e pronto!!! Fiz isso e deu tudo certo!!!

  40. Anônimo Says:

    Obrigado. Funcionou perfeitamente.

  41. Anônimo Says:

    Só tirar as aspas e digitar novamente que funciona perfeitamente.

  42. saboresdolitoral Says:

    Isso mesmo o problema está com as Aspas simples e duplas que tem no início e final do código… deu certo… Aqui o arquivo ficou desbloqueado sem me mostra a senha que era antes… mas para mim, o objetivo foi alcançado.

  43. serialgamers Says:

    Muito bom, inteligente. Funciona perfeitamente.

  44. Neusa Miranda Says:

    O meu esta a dar mensagem que o excel “não responde”

  45. amba Says:

    O Visual basic também está a pedir password, como faço?

  46. Anônimo Says:

    A TODOS..REDIGITEM AS ASPAS ONDE TEM, PORQUE QUANDO COPIA E COLA ELE FICA ERRADA.

  47. Anônimo Says:

    funciona direitinho ! valeu !!!

  48. keno Says:

    pessoal realmente e so redigitar as aspas e da certo.

  49. Anônimo Says:

    Ok, apenas substitui as 3 aspas ( ‘ , ” , ” ) que aparecem no texto. Grato!

  50. Flávio Says:

    Parabéns funcionou muito bem

  51. Gabriel Fontana Says:

    no meu o código é muito grande e não serve, aparece “senha inválida”.
    oq eu faço??

    • Gabriel Fontana Says:

      aparece para colocar uma senha**

  52. Anônimo Says:

    Bah pessoal, infelizmente redigito as aspas, mas fica um tempão rodando e aparecendo: “Não está respondendo”.

  53. André Says:

    Valew…Me ajudou aqui!!!

  54. Marisa Says:

    alterei tudo e funciona certinho em algumas guias são desbloqueadas e tentei novamente aí a planilha para de funcionar.. como se não aceitasse o comando. Tentei com a senha também e não dá..diz q não é essa! Alguém sabe como resolver?!

  55. Anônimo Says:

    Deu certinho! Obrigada! Salvou o dia!

  56. Anônimo Says:

    E funcionou certinho, teve que fazer uns ajustes no codigo mas deu certo. Não só mostrou a senha como desbloqueou automaticamente.

  57. Yvi Says:

    Tente ele diz espaço insuficiente

  58. Anônimo Says:

    Só troquei as aspas e exclui as linhas conforme orientado que deu tudo certo! Valeu!!!

  59. Anônimo Says:

    consegui resolver o tal erro de sintaxe…era erro nas aspas mesmo! em todas aliás…só trocar que resolve

  60. Gabriel Says:

    CARACA , FUNCIONOU PERFEITAMENTE, PERCEBI QUE TEM MUITA GENTE CABEÇUDA POR AQUI, MAS TÁ BLZ.
    PARABÉNS INFOXP

  61. Claudio Alves Says:

    Funcionou perfeitamente, para o excel 97 ao 2010, se alguém tiver com dificuldades é só visualizar as imagem para tirar duvidas referente as ASPAS ” ” ‘ ‘

    já quem quiser desproteger o excel 2013, a forma é outra,

    Funciona apenas no 2013!

    Nível de dificuldade: Baixo
    Versões do Excel: 2013 sem programas e o jeito é mais pratico…

    se alguém precisar é só me avisar….

    • Anônimo Says:

      Qual é a forma pra desbloquear no 2013? Parábens pelas dicas

    • Anônimo Says:

      Como faço pra desbloquear no excel 2013?

    • daniel Says:

      Oi Claudio!!
      posta ai como desproteger no excel 2013.
      obrigado!

  62. Rafael Says:

    Show de bola…!! Muito obrigado pela ajuda

  63. Barbara Says:

    boa noite, se alguem puder me ajudar me encaminhe um e-mail, pois não consegui desbloquear minha planilha
    barbara.luana19@hotmail.com

  64. Wesley Says:

    No meu caso o excel não responde quando coloco para executar a macro, alguma ideia do que seja o problema ?

  65. Wesley Says:

    No meu caso, quando executo a macro, meu excel não responde mais.. Aguardei alguns minutos para ver se voltava a responder, mas não funciona.
    O que devo fazer ?

    • Anônimo Says:

      execute o código de uma outra planilha que tambem da certo

  66. Jeferson Says:

    Pessoal tenho o office 365 e estou com algumas planilhas do excel que utilizam VBA bloqueadas com senha, já tentei o código informado acima, mas ao executar a macro já me pede a senha. Alguém pode me ajudar.

  67. Anonima Says:

    No meu caso só fiz 2 substituições:

    Na linha do – ‘Breaks worksheet password protection. – substitui aquele primeiro simbolo por ‘ (que é a aspa que está por baixo do ?, no teclado)

    Na linha do – MsgBox “One usable password is ” & Chr(i) & Chr(j) & _ – tirei as aspas que estão e reescrevi as normais ” “.

    E funcionou…

  68. Anônimo Says:

    Consegui, Grato pela explicação!

  69. Anônimo Says:

    Funcionou direitinho!! Obrigado

  70. Natanael Says:

    Funcionou perfeitamente!! Obrigado

  71. Anônimo Says:

    Isso ai ! Deu certo !

    Valeww

  72. Anônimo Says:

    teve uma planilha que funcionou mas teve outra que travou o excel e não desprotegeu. Formato era XLSX que deu problema.

  73. Regilane Says:

    Deu super certo! Muito obrigada!

  74. Aline Says:

    Excelente!! Me salvou!!! Obrigada por compartilhar.

  75. Jorge Ortiz Says:

    Muito boa dica!!!!

    Valeu demais!

  76. Luiz Says:

    Tantos comentários informando que o procedimento não teria funcionado,mas por incrível que pareça no meu funcionou beleza,foi só seguir direitinho os passos.

  77. Flávio Says:

    Obrigado, deu certo, após substituir as aspas que estão invertidas. Mas após a substituição deu certo 😀

  78. Anônimo Says:

    A planilia esta protegida e nao abri esta pagina que vc mostra na sua materia. nao abre nada, nao vejo nada.

  79. Anônimo Says:

    É SO TROCAR AS ASPAS OU SEJA… REDIJITAR… FUNCIONA…

  80. Anônimo Says:

    Depois de redigir as ” e ‘ funcionou.

  81. Anônimo Says:

    Deu certoooo! Obrigada

  82. Wandson Says:

    Bom dia!

    meu office eh o 2013 e de nenhuma forma eu consegui… Alguma dica?

    Obg!

    Att,

    Wandson

  83. Anônimo Says:

    Funcionou corretamente

  84. Anônimo Says:

    perfeito!

  85. Anônimo Says:

    otimo,..ajudou muito!! Perfeito

  86. Wilker Alves Says:

    funcionou blz, obrigado

  87. Rose Says:

    Muito bom, super funcionou.
    Troquei as aspas iniciais por uma unica de cada lado e pronto.

  88. Clayton Lara Says:

    Valeu! fazendo a substituição das aspas funcionou perfeitamente, lembrando que: ao rodar a macro o excel dá uma travadinha mas depois de alguns segundos ele exibe a nova senha para desbloqueio e que essa senha contém letras em CAIXA ALTA e também algum caractere especial que faz parte da senha (no meu caso foi um _ “underline”) que precisou ser digitado e funcionou perfeitamente!!! VALEU!!!!

  89. JESUS TADEU FERREIRA Says:

    Valeu muito!!! Obrigado.

  90. Jesus Tadeu Ferreira Says:

    Valeu!!!!! Obrigado!!!!!

  91. Thiago V. Lima Says:

    não está dando certo esse método, pq já na abertura do arquivo ja pede a senha. Não tem como acessar o atalho alt+f11, abre a caixa da senha e o restante fica sem acesso, não tem como clicar fora da caixa da senha, não permite.
    como proceder?

  92. Viviane Says:

    Boa noite! Digitei os comandos abaixo que deram certo para a primeira planilha, mas as demais não foram desbloqueadas. O que fazer para desbloquear as demais, pois está pedindo senha para desproteger a planilha?

    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
    Exit Sub
    End If
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    Next
    End Sub

  93. micael Says:

    valeu funcionou …..obrigado

  94. Jaqueline Says:

    Esse tutorial é ótimo.
    Simples, e funciona.

    Deixo registradas as alterações que tive que fazer, muito simples inclusive.

    A primeira alteração é na 2º linha: ‘Breaks worksheet password protection. (tive que apagar a aspas que tem no seu início, e apenas substituir por outra SIMPLES, sendo só um risquinho, como este ‘.
    E a outra alteração que tive que fazer é na 16º linha: MsgBox “One usable password is ” & Chr(i) & Chr(j) & _ (tive que apagar as aspas existentes e substituir por novas aspas, desta vez, duplas, como estas “.

  95. Heitor de Barros Cavassini Says:

    Galera, no meu também deu erro de sintaxe, segui os passos das aspas, é só substituir todos tipos de aspas por essa ‘ e tirar a palavra MsgBox, ficou assim:

    Sub PasswordBreaker()
    ‘Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 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
    ‘One usable password is’ & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

    Obrigado. Abraços

  96. WILLIAM JAMES Says:

    Muito bom, me salvou aqui, e a dica do Kleber foi fundamental.

  97. Bulhoes Says:

    Boa noite, a minha também desbloqueou apenas a primeira planilha, e a senha que foi fornecida não desbloqueia as demais abas.

    alguém pode ajudar?

    Obg.

  98. Anônimo Says:

    excelente… agora ficou super fácil, trabalhar no excel…

  99. Rubens Says:

    a planilha esta BLOQUEADA E A PASTA TAMBÉM E NO MODULO A PALAVRA CRIAR ESTÁ BLOQUEADA COMO FAÇO PARA LIBERAR – NÃO CONSIGO DESBLOQUEAR

  100. Anônimo Says:

    Show de bola!

  101. Jefferson Dutra Pinheiro Says:

    cara .. até para adicionar está travado .. alguma solução ..

  102. Vinicius Leite Says:

    Excelente dia, funcionou corretamente com as substituições devidas das aspas. Muito obrigado pela ajuda.

  103. Anônimo Says:

    Deu certo! Mas depois de alterar as ” por ‘ na frase Breaks worksheet password protection, e de tirar os espaços na linha MsgBox.

  104. Anônimo Says:

    vlw demais deu certo !!

  105. Dhill Says:

    Cara no meu deu um erro Memória Insuficiente. o que faço?

  106. Anônimo Says:

    O meu é Office 2016 e funcionou top.. valeeuuu

  107. Anônimo Says:

    o meu exce é o 2016 e não funcionou como devo fazer? alguma dica?

  108. Ronan Says:

    Não resolveu o meu meu problema. Mas achei interessante

  109. Cayque Says:

    Demora muito tempo para o código ser executado no de vocês também?

  110. DIego Says:

    No meu Caso o arquivo trava e não volta, diz que o arquivo não esta respondendo..

  111. Ferreira Says:

    Boa Noite!
    Minha planilha está 100% bloqueada, até a opção das macros estão bloqueadas.
    tem jeito?

  112. Marcos Says:

    o meu esta dando erro na primeira linha Sub PasswordBreaker()

  113. Marcos Says:

    E quando clica em executar dar a seguinte mensagem “Erro de Compilação” , é impossível localizar o projeto ou biblioteca.

  114. ALBERTO ANDRADE NOGUEIRA Says:

    Oi pessoal a macro também não funcionou com a minha planilha, então fiz umas alterações e funcionou, sigam o passo a passo la no início dessa postagem e copie e cole o código abaixo que depois de corrigido ficou assim:
    Sub PasswordBreaker()
    ‘Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 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 “One usable password is ” & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

  115. Jonathan de Souza Neto Says:

    Depois de ter alterado a mensagem com a ajuda dos amigo consegui usando a mensagem editada abaixo

    Sub PasswordBreaker()
    ‘Breaks worksheet password protection.’
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 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 “One usable password is” & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

  116. mary Says:

    E QUANDO DA MEMORIA INSUFICIENTE

  117. Camila Says:

    Surreal, nao funciona, digitei tudo, a senha apareceu, mas ela nao funciona. ja tentei com CAPS LOCK e sem, mas sem sucesso nenhum.
    alguma outra dica….. estou surtando.

  118. NESTOR N. DE ALBUQUERQUE Says:

    Funcionou … Valeu!

  119. Marcio Mendes Says:

    Muito obrigado por compartilhar essa dica.
    Sucesso!

  120. Thiago Guedes Says:

    Valeu mano. Deu tudo certo aqui

  121. Daniel Says:

    Solução funciona perfeitamente

  122. Anônimo Says:

    estou tentando desbloquear minha planilha por que esqueci minha senha, estou seguindo os passos do tutorial e não esta dando certo

  123. João Batista Says:

    bom dia! a senha esta informando que e invalida.
    pode mim ajuda por favor?

  124. andre Says:

    Olá, cliquei na seta verde(executar macro – F5), digitei no nome “senha”, mas quando clico em criar, aparece pra digitar a senha. Como faço pra remover essa senha?
    grato

  125. LIVIA Says:

    SUPER FUNCIONOU FIZ AS ALTERAÇÕES DAS ASPAS E JUNTAS COMO O AMIGO FALOU E DEU SUPER CERTO… ME SALVOU EM UMA PLANILHA DE TRABALHO (FINANCEIRO DA EMPRESA)

    SEGUE COMO FIZ:

    É porque ele colocou ´ na linha de comentário ao invés de aspas simples (‘) e ele usou “ ´´ para fechar a mensagem do MsgBox ao invés de abrir e fechar a mensagem com aspas duplas (“). Faça as substituições devidas e o código deverá funcionar.

  126. Yara Lima Says:

    Boa tarde pessoal. Me ajudem, essa forma de desbloqueio não serve para a versão 2013. Como devo proceder?

    • VAGNER SANTIAGO Says:

      Yara Lima

      Segue o codigo correto

      Sub PasswordBreaker()
      ‘Breaks worksheet password protection.
      Dim i As Integer, j As Integer, k As Integer
      Dim l As Integer, m As Integer, n As Integer
      Dim i1 As Integer, i2 As Integer, i3 As Integer
      Dim i4 As Integer, i5 As Integer, i6 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 “One usable password is” & Chr(i) & Chr(j) & _
      Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
      Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
      Exit Sub
      End If
      Next: Next: Next: Next: Next: Next
      Next: Next: Next: Next: Next: Next
      End Sub

  127. jair Says:

    Sábio não é aquele que sabe de tudo e sim aquele que usa tudo que sabe.Provérbio Chinês….muito obrigado por sua ajuda, consegui desproteger uma planilha feita a mais de 20 anos por um funcionario que saiu da empresa e não lembrava mais a senha…parabens…abs.

  128. Taynan Says:

    Conseguiiiiii

  129. leo Says:

    deu certo aqui, alguém saberia explicar a lógica desse código?

  130. Elden Says:

    Pessoal, li todos os comentários, e tentei todas as formas descritas.
    Fiz todas as alterações de aspas simples e dupla, e o que acontece é que ele só fica processando a não destrava. Alguém sabe se funciona para o Office 2013 ?
    Obrigado

    • Anônimo Says:

      Tentei no 2016 e 2013 sem sucesso.

      Obs.: Sintaxe está corrigida e macro rodando. Ele comeca a processar e trava.

  131. Anônimo Says:

    Não consegui dá memória insuficiente

  132. Arqj Says:

    no Breaks e no MsgBox substituir por uma aspa (‘) e no ”One usable password is” substituir os (” aspas juntas) por (” duas aspas separadas) tentei colar o certo acima mas quando comenta substitui sozinho

    • VAGNER SANTIAGO Says:

      Arqj

      Segue o codigo correto

      Sub PasswordBreaker()
      ‘Breaks worksheet password protection.
      Dim i As Integer, j As Integer, k As Integer
      Dim l As Integer, m As Integer, n As Integer
      Dim i1 As Integer, i2 As Integer, i3 As Integer
      Dim i4 As Integer, i5 As Integer, i6 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 “One usable password is” & Chr(i) & Chr(j) & _
      Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
      Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
      Exit Sub
      End If
      Next: Next: Next: Next: Next: Next
      Next: Next: Next: Next: Next: Next
      End Sub

  133. Anônimo Says:

    Funcionou perfeitamente! Parabéns pelo tutorial e muito obrigado!

  134. Anônimo Says:

    O código que eu consegui desbloquear minha planilha foi este, os outros acima não desbloqueava nem a pau…’Desproteger pasta de trabalho e planilha
    Public Sub RetirarTodasSenhasInternasExcel()
    ‘ Breaks worksheet and workbook structure passwords. Bob McCormick
    ‘ probably originator of base code algorithm modified for coverage
    ‘ of workbook structure / windows passwords and for multiple passwords

    ‘ Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
    ‘ Modified 2003-Apr-04 by JEM: All msgs to constants, and
    ‘ eliminate one Exit Sub (Version 1.1.1)
    ‘ Reveals hashed passwords NOT original passwords
    Const DBLSPACE As String = vbNewLine & vbNewLine
    Const AUTHORS As String = DBLSPACE & vbNewLine & _
    “Adaptado do código base de Bob McCormick por ” & _
    “Guia do Excel – http://www.guiadoexcel.com.br
    Const HEADER As String = “AllInternalPasswords User Message”
    Const VERSION As String = DBLSPACE & “Versão 1.1.1 04/Abril/2003”
    Const REPBACK As String = DBLSPACE & “”
    Const ALLCLEAR As String = DBLSPACE & “A planilha deve estar agora ” & _
    “livre de senhas de proteção, então:” & _
    DBLSPACE & “SALVE AGORA!” & DBLSPACE & “e também” & _
    DBLSPACE & “FAÇA UM BACKUP DA ANTIGA!!!” & _
    DBLSPACE & “Lembre-se que a senha foi ” & _
    “colocada com algum propósito, Não estrague as fórmulas ” & _
    “ou banco de dados.” & DBLSPACE & “Acesso e uso de algumas informações ” & _
    “pode ser contra a lei. Se tiver dúvida, não o faça.”
    Const MSGNOPWORDS1 As String = “Não foram encontradas senhas no ” & _
    “arquivo ou pasta de trabalho.” & AUTHORS & VERSION
    Const MSGNOPWORDS2 As String = “Não existe proteção na ” & _
    “pasta de trabalho.” & DBLSPACE & _
    “Preparando para desbloquear planilhas (Pressione OK se for preciso).” & AUTHORS & VERSION
    Const MSGTAKETIME As String = “Depois de dar OK ” & _
    “isso vai demorar um pouco.” & DBLSPACE & “A duração de tempo ” & _
    “depende de quantas senhas diferentes, das ” & _
    “próprias senhas e das especificações de seu computador.” & DBLSPACE & _
    “Seja paciente e tome um café!” & AUTHORS & VERSION
    Const MSGPWORDFOUND1 As String = “Você tem agora a planilha ou ” & _
    “pasta de trabalho desbloqueada.” & DBLSPACE & _
    “Verificando e limpando outras senhas.” & AUTHORS & VERSION
    Const MSGPWORDFOUND2 As String = “Você tem agora a planilha ou ” & _
    “pasta de trabalho desbloqueada.” & DBLSPACE & AUTHORS & VERSION
    Const MSGONLYONE As String = “Only structure / windows ” & _
    “protected with the password that was just found.” & _
    ALLCLEAR & AUTHORS & VERSION & REPBACK
    Dim w1 As Worksheet, w2 As Worksheet
    Dim i As Integer, j As Integer, k As Integer, l As Integer
    Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
    Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
    Dim PWord1 As String
    Dim ShTag As Boolean, WinTag As Boolean

    Application.ScreenUpdating = False
    With ActiveWorkbook
    WinTag = .ProtectStructure Or .ProtectWindows
    End With
    ShTag = False
    For Each w1 In Worksheets
    ShTag = ShTag Or w1.ProtectContents
    Next w1
    If Not ShTag And Not WinTag Then
    MsgBox MSGNOPWORDS1, vbInformation, HEADER
    Exit Sub
    End If
    MsgBox MSGTAKETIME, vbInformation, HEADER
    If Not WinTag Then
    MsgBox MSGNOPWORDS2, vbInformation, HEADER
    Else
    On Error Resume Next
    Do ‘dummy do loop
    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
    With ActiveWorkbook
    .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 .ProtectStructure = False And _
    .ProtectWindows = False Then
    PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    MsgBox Application.Substitute(MSGPWORDFOUND1, _
    “$$”, PWord1), vbInformation, HEADER
    Exit Do ‘Bypass all for…nexts
    End If
    End With
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    Loop Until True
    On Error GoTo 0
    End If
    If WinTag And Not ShTag Then
    MsgBox MSGONLYONE, vbInformation, HEADER
    Exit Sub
    End If
    On Error Resume Next
    For Each w1 In Worksheets
    ‘Attempt clearance with PWord1
    w1.Unprotect PWord1
    Next w1
    On Error GoTo 0
    ShTag = False
    For Each w1 In Worksheets
    ‘Checks for all clear ShTag triggered to 1 if not.
    ShTag = ShTag Or w1.ProtectContents
    Next w1
    If ShTag Then
    For Each w1 In Worksheets
    With w1
    If .ProtectContents Then
    On Error Resume Next
    Do ‘Dummy do loop
    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
    .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 Not .ProtectContents Then
    PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    MsgBox Application.Substitute(MSGPWORDFOUND2, _
    “$$”, PWord1), vbInformation, HEADER
    ‘leverage finding Pword by trying on other sheets
    For Each w2 In Worksheets
    w2.Unprotect PWord1
    Next w2
    Exit Do ‘Bypass all for…nexts
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    Loop Until True
    On Error GoTo 0
    End If
    End With
    Next w1
    End If
    MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
    End Sub

  135. Anônimo Says:

    ok

  136. Eduardo Tracz Says:

    Está aparecendo Não está respondendo no EXCEL, alguma luz??

  137. Cássio Says:

    quando aperto para executar macro aparece “memoria insuficiente”

  138. Mário Santos Says:

    depois que eu ponho a senha e clico em criar, e apara esta massagem:
    memoria insuficiente.


Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: