Ocultar Planilhas

Question

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.

Answer 1

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

Answer 2

Valeu André!