@marmen Veja se deu certo. Option Explicit Public fname, NomeArquivo As Variant Sub Salvarformulario() Sheets("Teste").Unprotect Passwo...

@jscopa10 Isso mesmo, testei aqui e realmente aparece isso. Porem deixei desmarcado essa opção e sumiu RibbonX_Code

@jscopa10 Veja nesse site fizeram a mesma pergunta. Link

@payzzanno Veja se consegue adaptar da pagina desse link

@marmen Acho que agora foi.  Marmen-Exemplo4.xlsm

@marmen  Marmen-Exemplo3.xlsm

@sandrolima Teste o arquivo em anexo só lembrando que tem que alterar a pasta padrão do Adobe instalado na sua maquina.  Copia-de-NAO-ABR...

@marmen Veja se te atende desse jeito.  Marmen-Exemplo.xlsm

@sandrolima Consegui salvar na pasta que não estava funcionando antes, incluir o caminho da pasta no código abaixo: strExec = "pdftk " & Chr(3...

@marmen Veja se te atende dessa forma.  Marmen-Exemplo.xlsm

@sandrolima Não sei mais o que pode ser. Vamos ver se alguém sabe o porque. Tem um arquivo que salva na pasta certa e tem outro arquivo em outra p...

@sandrolima Aqui deu erro na pasta do drive pois o nome contem espaço "Google drive" teria que ser "Google_drive" para não dar erro na pasta. Teria ...

@sandrolima Altere o código. If Not Dir(pdfOut) = " " Then ' verf. se o arquivo existe nomepasta = ThisWorkbook.Path abrirpdf =...

@sandrolima Uma coisa que percebi aqui é que o nome do arquivo a ser aberto que esta na variável pdfOut não pode conter espaço pois o shell nao reco...

@sandrolima Veja se existe o programa PdfTk.exe instalado. Aqui não deu erro, porem como não tenho esse arquivo não sei se a parte final do seu códi...