[RESOLVIDO]segurança de Planilha

[Tov Elen Shau]

Colega

Boa tarde

Segue anexo.

Nos deixe saber se tiver dado certo.

Atenciosamente

Tov Elen Shau

[CAMILOALVES]

Tov Elen Shau » Sex Mar 22, 2019 3:23 pm
Primeiramente Agradece-lo por dispor de seu tempo em ajudar-me.

OK! A sua nova rotina funcionou.

Porém o BUG agora é o seguinte: Quando clico no botão "Busca CTE's", botão esse localizado na planilha "Plano de Contas" dá o seguinte erro: "O método select do objeto_worksheet falhou".

Favor Analisar
Atenciosamente.

[CAMILOALVES]

Prezado Tov Elen Shau » Sex Mar 22, 2019 3:23 pm
Primeiramente Agradece-lo por dispor de seu tempo em ajudar-me.

OK! A sua nova rotina funcionou.

Porém o BUG agora é o seguinte: Quando clico no botão "Busca CTE's", botão esse localizado na planilha "Plano de Contas" dá o seguinte erro: "O método select do objeto_worksheet falhou".

Favor Analisar
Atenciosamente.

[CAMILOALVES]

Prezado Tov Elen Shau » Sex Mar 22, 2019 3:23 pm
Primeiramente Agradece-lo por dispor de seu tempo em ajudar-me.

OK! A sua nova rotina funcionou.

Porém o BUG agora é o seguinte: Quando clico no botão "Busca CTE's", botão esse localizado na planilha "Plano de Contas" dá o seguinte erro: "O método select do objeto_worksheet falhou".

Favor Analisar
Atenciosamente.

[Tov Elen Shau]

Bom dia colega

Segue anexo.

Atenciosamente

Tov Elen Shau

[CAMILOALVES]

Prezado Tov Elen Shau » Seg Mar 25, 2019 9:12 am Bom Dia!
Primeiramente Muito Obrigado Por Dispor de Seu Tempo Para Ajudar-me.
Desculpe o Incomodo, houve um Bug na nova versão.
Na Versão Anterior, ou seja, Sem a Inclusão de senha para acesso a planilha “plano de contas” a rotina: ao clicar no botão “Busca de CTE’s” exibiam corretamente as variáveis, neste caso: CTEN44 – R$832,00; CTEN48 – R$664,00; CTEN49 – R$554,00; CTEN59 – R$3.917,00; CTEN60 – R$859,00; CTEN63 – R$295,00 e CTEN65- R859,00.
Com a nova implementação (solicitação de senha - Seg Mar 25, 2019 9:12 am) para acesso a planilha “Plano de Contas” ao efetuar a ação de clicar no Botão “Busca de CTE’s” localizado na planilha “Plano de Contas” só está exibindo a variável CTEN44 – R$832,00, quando o correto seriam as exibições das variáveis CTEN44 – R$832,00; CTEN48 – R$664,00; CTEN49 – R$554,00; CTEN59 – R$3.917,00; CTEN60 – R$859,00; CTEN63 – R$295,00 e CTEN65- R859,00.
Obséquio analisar
Atenciosamente

[Tov Elen Shau]

Opa colega...

Desculpa...ocultei a planilha antes da busca do próximo item.

Segue anexo.

Atenciosamente

Tov Elen Shau

[CAMILOALVES]

Prezado Tov Elen Shau » Seg Mar 25, 2019 11:02 am
Primeiramente Muito Obrigado Por Dispor de Seu Tempo Para Ajudar-me.
Desculpe o Incomodo, houve um Bug na nova versão.
O Bug: Quando estou inserindo dados na planilha “Plano de Contas” e após as inserções dos mesmos clico no botão “Inserir”, está indo direto para planilha “Consulta Plano de Contas”.
O Correto: Na planilha “Plano de Contas” Após digitações de dados e clique no botão “Inserir” deve-se manter na planilha atual, ou seja, Na planilha “Plano de Contas” até próxima ação quaisquer que seja.
Obséquio analisar
Atenciosamente

[Tov Elen Shau]

Colega

Boa tarde

Entre no Editor do VBA\módulo 21 na rotina LsIncluirPLANO exclua a última linha; Sheets("Plano de Contas").Visible = xlSheetVeryHidden

Atenciosamente

Tov Elen Shau

[CAMILOALVES]

Prezado Tov Elen Shau » Ter Mar 26, 2019 1:50 pm
Primeiramente Muito Obrigado Por Dispor de Seu Tempo Para Ajudar-me
Funcionou! Realizei a alteração conforme sua orientação.
Se não for pedir muito, daria para você analisar a macro contida no Botão “Gerar PDF” na Planilha “Diretoria” , Ela Funciona, ou seja, converte o XLS / PDF e grava no diretório estabelecido, porém exibe linhas em brancos .
Caso Não Dê Para Você Avaliar, mesmo assim fico muito grato pela valiosa ajuda.
O Pedido de Ajuda: Que somente linhas úteis, ou seja, aquelas linhas que contém de fato dados entre as colunas "A" e "M" na planilha "Diretoria"sejam exibidas no ato da conversão do xls p/ pdf. atualmente apesar da conversão correta estão sendo exibidas páginas sem dados.
Desde já agradeço pela ajuda.
Atenciosamente