1. #1

    Registo
    May 2010
    Idade
    33
    Posts
    2.278

    Padrão "Destrancar" folha de excel protegida com password

    Boas,

    Para destrancar uma sheet protegida, gravar o ficheiro como " Livro do excel com permissão para macros"


    Depois ALT-F11 (Abre microsoft visual basic) e na sheet de excel que ta bloqueada colocam o seguinte: (tb funciona em qualquer folha ou mm no livro, desde que selecionem a sheet pretendida antes de correr a macro)


    Código:
        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

    Depois Guardam. e carregam em F5 ou em ver macros executam a que contem "PasswordBreaker"

    Demora um pouco. Mas depois Dá mensagem a informar que está ok.

  2. #2

    Registo
    Oct 2006
    Posts
    49
    Com este comentario não quero dizer que isto não funciona, mas é muito estranho.
    O que este pedaço de VBA esta a fazer é gerar as seguintes string:

    XXXXXXXXXXXy

    onde os "X" podem variar entre 2 valores "A" e "B" e o "y" pode variar entre "a-z A-Z 0-9" e Simbolo "()=!"#$%&/....".

    Só para tirar as teimas, coloquei um password numa Sheet e deixei o VBA a correr a manha toda e não deu nada.

  3. #3

    Registo
    May 2010
    Idade
    33
    Posts
    2.278
    Citação Postado originalmente por pafq Ver Post
    Com este comentario não quero dizer que isto não funciona, mas é muito estranho.
    O que este pedaço de VBA esta a fazer é gerar as seguintes string:

    XXXXXXXXXXXy

    onde os "X" podem variar entre 2 valores "A" e "B" e o "y" pode variar entre "a-z A-Z 0-9" e Simbolo "()=!"#$%&/....".

    Só para tirar as teimas, coloquei um password numa Sheet e deixei o VBA a correr a manha toda e não deu nada.
    qual é a versão e cm estás a fazer? olha cmg funciona...

  4. #4

    Registo
    Oct 2006
    Posts
    49
    Excel 2013
    Na Sheet criei um VBA e executei.

  5. #5

    Registo
    May 2010
    Idade
    33
    Posts
    2.278
    tb testei em 2013. gravaste o ficheiro com permissão de macro? protegeste as células da sheet?

  6. #6

    Registo
    Oct 2006
    Posts
    49
    Sim, a sheet estava protegida, não podia alterar nada sem fazer o unprotect, a macro estava a executar.
    eu só testei por curiosidade, e porque o codigo me parece muito estranho.
    A não ser que o Excel guarde as password num Hash muito basico, isto não tem razão para funcionar. Alias, a funcionar e não estou a dizer que não funcionar, só podem existir 188416 combinações diferentes para desproteger a folha de excel, o que torna uma proteção deste genero muito basica e facilmente crackavel.

  7. #7

    Registo
    May 2010
    Idade
    33
    Posts
    2.278
    logo vou fazer de novo e meto os prints

  8. #8

    Registo
    May 2010
    Idade
    33
    Posts
    2.278
    Boas. Novo teste feito e realmente resulta!

  9. #9
    Avatar de phlr
    Registo
    Apr 2014
    Localização
    Castelo Branco
    Idade
    59
    Posts
    2
    Uma questão:

    Como fazer isso se, ao abrir o ficheiro em Excel 2010 protegido, me é pedida a respetiva palavra-passe?
    Já experimentei e não consigo executar absolutamente nada!

  10. #10
    Avatar de cat32D
    Registo
    Mar 2017
    Idade
    31
    Posts
    130
    Boas @phlr , Nao me leves a mal mas ,sobre o teu pedido isto é mais um pedido de Hacking de remover uma password de um file!

    No google a centenas de respostas sobre isso e cada caso é um caso nem todos sao iguais visto que muda de versao para versao do MSO da Versao do excel ou do Office no geral.
    Podes testar varias maneiras como o amigo @mlcalves explica e bem em cima mas a linhas de codigos de VBA muda de versao para versao.

    Cumprimentos e boa sorte.

  11. #11
    Avatar de phlr
    Registo
    Apr 2014
    Localização
    Castelo Branco
    Idade
    59
    Posts
    2
    Citação Postado originalmente por cat32D Ver Post
    Boas @phlr , Nao me leves a mal mas ,sobre o teu pedido isto é mais um pedido de Hacking de remover uma password de um file!

    No google a centenas de respostas sobre isso e cada caso é um caso nem todos sao iguais visto que muda de versao para versao do MSO da Versao do excel ou do Office no geral.
    Podes testar varias maneiras como o amigo @mlcalves explica e bem em cima mas a linhas de codigos de VBA muda de versao para versao.

    Cumprimentos e boa sorte.
    Bom dia companheiro!

    Pois.. mas de hacking, infelizmente, não tem mesmo nada, pois os ficheiros em Excel são mesmo meus!
    Têm dados sobre avaliação de alunos meus desde 2004 e não me recordo qual a password que lhes coloquei.
    Já tentei experimentar as sugestões que aqui são apresentadas, mas o problema é que, apesar de conseguir gravar a Macro de desproteção, não consigo executá-la, pois quando tento abrir um dos ficheiros com palavra-passe, está sempre a pedir-ma e não consigo fazer mais nada…
    De qualquer forma obrigado pela resposta...

Tópicos Similares

  1. Respostas: 0
    Último Post: 19-01-2011, 21:47
  2. Retirar protecção em folha de Excel
    Por nna no fórum Duvidas E Ajuda
    Respostas: 3
    Último Post: 15-11-2007, 11:00
  3. esqueceu "enter password"
    Por brunocat no fórum Samsung
    Respostas: 1
    Último Post: 23-02-2007, 14:02

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •  

Conectar

Conectar