none
Ocultar Planilhas RRS feed

  • Pergunta

  • Pessoal,

    bom dia.

    Estou com o seguinte problema:

    Utilizo o procedimento a seguir para ocultar uma planilha:

    Plan1.Visible = xlSheetHidden

    E desejo gerar um arquivo na extensão .PDF dessa planilha utilizando o seguinte código:

    Sheets("Plan1").Range("A1:D162").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Relatorio
    

    Porém, da erro e o arquivo não é gerado!

    Acredito ser pelo fato da planilha estar oculta.

    Tem alguma outra forma de ocultar a planilha? Gostaria de limitar o acesso a ela devido conter algumas informações utilizadas como base.

    quarta-feira, 15 de julho de 2015 13:04

Respostas

  • Matheus, 

    Você pode reexibir a planilha, imprimi-la como pdf e depois oculta-la novamente em tempo de execução, ficaria assim:

    Plan1.Visible = true
    
    Sheets("Plan1").Range("A1:D162").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Relatorio
    
    Plan1.Visible = false
    Outra alternativa é proteger a planilha, Na aba dados, existe esta funcionalidade e é bem interessante

    Há quem coloque os dados com fonte branca para não aparecer também... mas é gambs..rsrs

    • Marcado como Resposta matmendes quarta-feira, 15 de julho de 2015 18:55
    quarta-feira, 15 de julho de 2015 14:28

Todas as Respostas

  • Matheus, 

    Você pode reexibir a planilha, imprimi-la como pdf e depois oculta-la novamente em tempo de execução, ficaria assim:

    Plan1.Visible = true
    
    Sheets("Plan1").Range("A1:D162").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Relatorio
    
    Plan1.Visible = false
    Outra alternativa é proteger a planilha, Na aba dados, existe esta funcionalidade e é bem interessante

    Há quem coloque os dados com fonte branca para não aparecer também... mas é gambs..rsrs

    • Marcado como Resposta matmendes quarta-feira, 15 de julho de 2015 18:55
    quarta-feira, 15 de julho de 2015 14:28
  • Valeu André!

    quarta-feira, 15 de julho de 2015 18:55