Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO]segurança de Planilha

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
LaerteB
Colaborador
Colaborador
Mensagens: 96
Registrado em: Qui Out 19, 2017 8:20 am

Re: segurança de Planilha

Mensagem por LaerteB »

Boa tarde, CAMILOALVES e Tov Elen Shau

Primeiro quero dizer que ajudarei nesta última questão, pois o Tov solucionou com
muita competência as questões levantadas pelo nosso amigo "CAMILOALVES" :D...

Então "CAMILOALVES" você terá que criar um novo Módulo e colar este código que se segue abaixo,
dentro dele :

Código: Selecionar todos

Sub IntervaloDiretoriaPDF()

Dim prim01 As Range

Plan3.Select
ActiveCell = Range("A8").Select

Set prim01 = Union(Range("A1").Resize(7, 13), Range(ActiveCell.End(xlDown), ActiveCell.Columns(13)))

  prim01.Select

End Sub

Agora tem que Substituir o código que se encontra no "Módulo 24" por este que segue abaixo:

Código: Selecionar todos

Sub CONVERTER_EM_PDF()
  
    Dim seuPdfCaminho As String
    Dim seuPdfNome As String
    
       Application.ScreenUpdating = False
      
    seuPdfCaminho = "N:\TRANSPORTADORA SAMELO\"
    seuPdfNome = "DIRETORIA.pdf"
    
  Call IntervaloDiretoriaPDF
  Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    seuPdfCaminho & seuPdfNome, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    Range("R2").Select
    
   Application.ScreenUpdating = True
   
End Sub
Com estas modificações a conversão para PDF será apenas do intervalo das colunas "A" e "M" com dados
(como informou na mensagem anterior), eliminando as linhas ou páginas em branco que antes
eram também convertidas ;) ..

Espero que seja isto que queria :D ...

Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smille :P ...

LaerteB :)


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


CAMILOALVES
Colaborador
Colaborador
Mensagens: 73
Registrado em: Sex Mar 09, 2018 2:12 pm

Re: segurança de Planilha

Mensagem por CAMILOALVES »

Prezados Tov Elen Shau e LaerteB
Primeiramente Muito Obrigado Por dispor de Seu Tempo Para Ajudar-me.
Em Segundo Lugar, Ratificar Meus Agradecimentos ao Nosso Colega Tov Elen Shau que é extremamente Competente e de forma brilhante colaborou com a solução anterior (fez toda a parte de segurança das planilhas).
Vamos aos Resultados: Após realizar as inserções das rotinas sugeridas por você, a princípio funcionou, ou seja, está convertendo e salvando em PDF, porém ocorreram alguns Bug’s descritos a seguir:
- Após inserção dos códigos sugeridos por você e acionar pela primeira vez o botão “Gerar PDF”, houve interferência na célula "A8" da planilha “Diretoria”; renomeando a célula (A8) de “Nº Doc” para “Verdadeiro”, após essa evento não consegue-se mais fazer pesquisa, ou seja, ao clicar no botão “Consultar” o planilha apresenta um Bug.
Se possível favor analisar e reenviar.
Desde já agradeço


Avatar do usuário
LaerteB
Colaborador
Colaborador
Mensagens: 96
Registrado em: Qui Out 19, 2017 8:20 am

Re: segurança de Planilha

Mensagem por LaerteB »

Boa tarde, CAMILOALVES

Obrigado você :) ...

Verifiquei e acontece mesmo os Bug's... foi uma falha minha :oops: ...

No Módulo que criastes anteriormente substitua por este código que fiz as alterações,
conforme abaixo:

Código: Selecionar todos

Sub IntervaloDiretoriaPDF()

Dim prim01 As Range

Plan3.Select
Range("A8").Select

Set prim01 = Union(Range("A1").Resize(7, 13), Range(Selection.End(xlDown), Selection.Columns(13)))

  prim01.Select
  
Set prim01 = Nothing

End Sub
Agora os Bug's mencionados estão sanados, por gentileza verifique se está funcionando normalmente :roll: ...

Qualquer coisa, estamos aqui :D ...

Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smille :P ...

LaerteB :)


Tov Elen Shau
Manda bem
Manda bem
Mensagens: 173
Registrado em: Qua Mai 17, 2017 2:27 pm

Re: segurança de Planilha

Mensagem por Tov Elen Shau »

Boa dia colega...

Estive fora por uns dias, tive problemas também com meu pc, instalei o linux e não estava conseguindo trabalhar com as mesmas rotinas do Office. Obrigado pela ajuda LaerteB e que bom que conseguimos resolver mais essa Camilo, estamos sempre por aqui.

Atenciosamente

Tov Elen Shau


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


CAMILOALVES
Colaborador
Colaborador
Mensagens: 73
Registrado em: Sex Mar 09, 2018 2:12 pm

Re: segurança de Planilha

Mensagem por CAMILOALVES »

Prezados Tov Elen Shau e LaerteB Bom Dia!
Primeiramente Muito Obrigado Por Disporem de Vossos Tempo Para Ajudar-me.
Em Segundo Lugar, Parabenizá-los Pelas Soluções Que Foram Cirúrgica.
Sistema Funcionando! :D :D

Só Uma Última Solicitação: :oops: Tov Elen Shau Sua Solução no Tocante a Segurança, Ficou Acima das Expectativas, Se Possível Poderia Fazer Um Passo a Passo (e Anexar no Word) Para que Eu Possa Aprender e Replicar sua Solução a Determinadas Planilhas Que Faço e que Carecem de Segurança.

DEUS continue abençoando e multiplicando a inteligência de Vocês Dois. :D ;)


Avatar do usuário
LaerteB
Colaborador
Colaborador
Mensagens: 96
Registrado em: Qui Out 19, 2017 8:20 am

Re: segurança de Planilha

Mensagem por LaerteB »

Bom dia, CAMILOALVES e Tov Elen Shau

Obrigado vocês :).

Ótima noticia, sistema funcionando :P, é muito gratificante saber que as soluções
propostas surtiram o efeito desejado :D

Qualquer dúvida estamos aqui para ajudar :P .

Caso tenha solucionado a sua dúvida insira o prefixo "Resolvido" antes do titulo :) ...

LaerteB :D


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder