Descodificar ficheiro de excel

tempest@de · Fev 21, 2008

Boas amigos,

Preciso da vossa ajuda.

Tenho um ficheiro de excel que uso para calcular os honorários e preciso de fazer algumas alterações ao mesmo, o problema é que as folhas estão protegidas por palavra passe, a qual eu não sei uma vez que não fui eu que fiz o ficheiro, queria que me indicassem algum programa para descodificar as folhas e assim poder fazer as alterações.
Como só preciso do programa para isto teria que ser um programa de freeware já que não me compensa comprar um programa.
Já tentei vários que encontrei na net mas nenhum funcionou, a maioria que encontrei serve para descodificar ficheiros protegidos e não as próprias folhas (ou células) do excel, ou então são demonstrações de uso limitado e também não funcionam.
Alguém me pode indicar um programa gratuito que descodifique as folhas dum ficheiro de excel.
Desde já o meu obrigada!

JackWise · Fev 22, 2008

Boas,

Vê nestes dois links:

http://www.excelforum.com/showthread.php?t=349207

http://www.theofficeexperts.com/VBASamples/Excel02.htm

tempest@de · Fev 23, 2008

Muito obrigada amigo JackWise, :9BF12D:

tempest@de · Fev 25, 2008

apenas para dizer que já consegui abrir e editar o ficheiro, muito obrigada amigo Jackwise!

LoboM@u · Fev 26, 2008

Tempest@de eu tambem tenho uma base de dados em excel que queria alterar mas está protegida podes-me dizer qual destes dois programas usaste e como fizeste, eu já estive nos sites mas não pesquei nada de nada, por isso agradecia toda a ajuda

tempest@de · Mar 1, 2008

utilizei o segundo link http://www.theofficeexperts.com/VBASamples/Excel02.htm

Abre o ficheiro, e carrega em Alt+F11 para ver o editor do visual basic, carrega em Insert-Module e cola o seguinte codigo

Código:

Sub PasswordBreaker()
  'Author unknown but submitted by brettdj of www.experts-exchange.com
  
  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)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = 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

Fecha o editor do VB, e abre a folha que queres desproteger. No menu Ferramentas / Macro / Macros adiciona a macro que acabaste de criar (PasswordBreaker) à lista. Carrega em executar e espera até que apareça a mensagem com a password, nesse momento podes começar a editar.

Há um pequeno inconveniente, cada vez que fores abrir o ficheiro o excel vai-te dizer que o programa contem macros e perguntar se as queres activar, não é nada de mais mas é chato, especialmente se for um ficheiro que usas muitas vezes, mas acho que é um pequeno incomodo suportável.

tempest@de · Mar 3, 2008

Usei o segundo link.

1 - Abre o ficheiro que queres descodificar.
2 - Pressiona Alt+F11 para abrir o Editor do visual basic.
3 - Clica em Inserir Modulo e cola o código que está no segundo link.
4 - Fecha o editor do VB.
5 - Abre a folha que queres descodificar.
6 - Vai a Ferramentas / Macro / Macros e clica duas vezes em PasswordBreaker.
Caso tenhas várias folhas para descodificar, repete o passo 6 em cada uma delas.

O único inconveniente é que depois cada vez que abrires o ficheiro o Excel vai avisar que o ficheiro contem macros e perguntar se as queres activar, é um pequeno inconveniente suportável, pelo menos a meu ver, a mim ajudou-me bastante, agora já sei as formulas que estão por trás e posso fazer as alterações necessárias.

LoboM@u · Mar 6, 2008

Muito obrigado tempest@de

tempest@de · Mar 6, 2008

de nada.

Resultou?

ignusneris · Nov 22, 2008

tentei fazer exactamente como descrito mas da-me um erro: compile error!
Invalid Outside Procedure, se me puderem ajudar agradeço...

vassco · Mai 25, 2009

Obrigado malta resolvi os meus entraves, abraço para todos...

lagarder · Jun 11, 2009

obrigado

Funciona mesmo

Descodificar ficheiro de excel

tempest@de

GF Prata

JackWise

GF Ouro

tempest@de

GF Prata

tempest@de

GF Prata

LoboM@u

GF Prata

tempest@de

GF Prata

tempest@de

GF Prata

LoboM@u

GF Prata

tempest@de

GF Prata

ignusneris

GF Bronze

vassco

GF Bronze

lagarder

Novo