Como apontado em um comentário, não há maneira direta de conseguir isso sem ferramentas externas. Uma biblioteca PDF completa seria necessária, o que provavelmente é muito grande e complexo para incorporar em um arquivo do Excel.
Para evitar alterações de PDF
, você pode usar ferramentas como PDFtk para criptografar as arquivo e limitar as permissões. Você pode chamar PDFtk
do VBA usando a função Shell . Use pdftk --help
para conhecer todas as opções.
Exemplo:
call Shell("pdftk.exe myfile.pdf output protected.pdf encrypt_128bit")
O exemplo assume que o pdftk.exe pode ser encontrado ao longo da pesquisa PATH
. Adicione aspas duplas, caso seus caminhos de arquivo contenham espaços.
PDFtk
não permite a impressão de arquivos criptografados, a menos que seja permitido explicitamente.
Caso contrário, seria bastante fácil contornar essa restrição usando o imprimir no truque de arquivo .