[pt-br-usuarios] Quebra de senha

Bom dia Luiz..

Já tive este problema, na época não encontrei solução para .ods
contudo encontrei para .xls

*Estou considerendo que a senha não é para a abertura do arquivo e sim 
nas planilhas.*

Faça o seguinte
1- salve seu arquivo em .xls
2- abra o arquivo .xls no exel e copie a macro abaixo no arquivo,

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

3- vá em cada planilha que quer tirar a senha e execute a macro
     refis um teste hoje e funcionou, usei Excel 2003 (portabilizado)
     meu teste a senha tinha 5 caracteres e levou 85 segundos.

Espero ter ajudado
Um abraço


Em 09/06/2011 14:14, Luiz Carlos escreveu:
> -------- Mensagem original --------
> Assunto:        Quebra de senha
> Data:   Thu, 9 Jun 2011 13:52:57 -0300
> De:     Ruither Freitas<ruiter.go@megafort.com.br>
> Para:   <contato@broffice.org>
>
>
>
> Boa tarde!
>
> Gostaria de saber como faço para quebrar uma senha no broffice, pois
> coloquei a senha em uma planilha e sai de férias agora não me lembro mais.
>
> Grato!
>
>
>         
>
> *Ruither de Freitas     *
> Assistente de Logística
> *(62) 3611-6271
> **_ruiter.go@megafort.com.br<mailto:ruiter.go@megafort.com.br>_***
>
>
>
>
>
>
>
>
>
> Via Anel Viário, Qd 42 a 45 - Pólo Empresarial de Goiás - Aparecida de
> Goiânia - GO
>                               CEP 74983-030  http://www.megafort.com.br
>
>
> Aquele que tentou e nada conseguiu é superior àquele que não tentou.
> (Bud Wilkinson)


--
Você está recebendo e-mails da lista usuarios@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
 mande e-mail vazio para usuarios+help@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
 usuarios+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/