Jump to content

Alguem Tem Lottodesignerxl Desbloqueada?


sorel

Recommended Posts

Desculpe, mas como assim pelo calc ?

 

simples, o calc, é um aplicativo do pacote apache open office, compativel com o excel...

quando você abre um arquivo do excel ou word nos aplicativos respectivos do open office ( calc e writer), você tem acesso a todo o conteudo do arquivo da mesma forma, bem como a todo o projeto VBA, incluindo módulos e formulários.

ou seja, se tiver senha já era... :eek:

 

grande abraço!

  • Like 1
Link to comment
Share on other sites

o especialista onde encontro esse Calc ?

pois nao achei ele no pacote do office.

eu tenho uma planilha aqui bloqueada por vba e nela tem uma função que e algo que estou a procura a muito tempo..

porem não consigo acesso ao código vba.

 

acesse o link abaixo:

http://sourceforge.n...g.mirror/files/

 

instale o pacote de aplicativos, procure a pasta que foi criada ( open office 4.1.1 )

abra o aplicativo open office calc.

vá em (file) na parte superior esquerda e clik em open...

abra a planilha que quer ver o codigo. basta copiar e colar no excel.

 

espero ter ajudado.

Link to comment
Share on other sites

O HxD permite vc mudar a expressão DPB para DPx depois é só abrir a plan aceitar as msg de erros entrar no projeto VBA e vc define uma nova senha a seu gosto, salve e pronto.

Link to comment
Share on other sites

O HxD permite vc mudar a expressão DPB para DPx depois é só abrir a plan aceitar as msg de erros entrar no projeto VBA e vc define uma nova senha a seu gosto, salve e pronto.

 

olá Edu-Aacaracas... somente complementando, que se for um arquivo do excel 2007, tem que salvar como arquivo do excel 2003, para poder trocar o DPB para DPX... me corrija se falei besteira... :mrgreen:  :mrgreen:

 

Grande abraço!

Link to comment
Share on other sites

olá Edu-Aacaracas... somente complementando, que se for um arquivo do excel 2007, tem que salvar como arquivo do excel 2003, para poder trocar o DPB para DPX... me corrija se falei besteira... :mrgreen:  :mrgreen:

 

Grande abraço!

...

Correto meu bom! Uma fuga que se complementa com os perdidos...

.

Abraço!

Link to comment
Share on other sites

Tu va até Ferramentas>Macros>Organizar macros>OpenOffice Basic, na caixa que abrir abra o sinal + que desdcreve com o nome da sua planilha abra standard e clique sobre o ou um a um os arquivos ''modulos'' descritos antes de EstaPasta_de_Trabalho e vai no botão ''Editar'' que vc tera o código, e se tem varios modulos faça pra cada um ''seleciona e 'Editar''.

Link to comment
Share on other sites

Tu va até Ferramentas>Macros>Organizar macros>OpenOffice Basic, na caixa que abrir abra o sinal + que desdcreve com o nome da sua planilha abra standard e clique sobre o ou um a um os arquivos ''modulos'' descritos antes de EstaPasta_de_Trabalho e vai no botão ''Editar'' que vc tera o código, e se tem varios modulos faça pra cada um ''seleciona e 'Editar''.

 

Perfeito ! muito bem explicado...

Parabéns Edu-Aacaracas.  :ugeek:

Edited by o especialista
Link to comment
Share on other sites

Pedepano,

 

Se for para fazer o que voce explicou ai em cima (conferir arquivos entre si e classificar por algum peso), sugiro utilizar o programa Analisador de Arquivos.

 

Ele faz isso para até 300.000 linhas num arquivo, se não me engano.

 

E permite conferir acertos de até 50 dezenas entre arquivos (Lotomania, Keno, etc).

 

https://www.dropbox.com/s/305ksomzzvr122s/Analisador%20Arquivos.rar?dl=0

Link to comment
Share on other sites

  • 1 year later...
Sub Desbloqueia_Planilha()

 

Dim i As Integer, j As Integer, k As Integer

Dim 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 "Sua planilha foi desbloqueada "

Exit Sub

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

 

End Sub 

 

Instruções:

Passo 1: Abra a planilha protegida e clique ALT+F11 ou Menu: Exibir > Barras de Ferramentas > Visual Basic;

Passo 2: Se você fez certo o passo anterior agora deverá estar aberto o Microsoft Visual Basic. Vá em INSERIR > MÓDULO

Passo 3: Insira a rotina acima copiando e colando desde a linha "Sub Desbloqueia_Planilha()" até "End Sub"

Passo 4: Digite ALT+F11 novamente para retornar a planilha protegida, e execute a macro.

Se você não achar a opção de macro digite ALT+F8. Selecione sua macro (Desproteger_Planilha) e clique em executar.

Passo 5: Aguarde alguns segundos e após a execução da macro será exibida a mensagem "Sua planilha foi desbloqueada".

  • Like 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...