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.

Publicado em Tutoriais. Tags: , . 132 Comments »

132 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!!!

  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.

    • 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

  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

  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.

  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!!!

  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)

  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

  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


Deixe uma resposta

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: