[Resolvido]Abrir arquivo PDF com senha "VBA"

Boa Tarde a todos

Estou utilizando o código do meu amigo Avelino que carrega documentos em PDF em form através do "Abode PDF Reader" do controle Activex do access.

Minha pergunta seria a seguinte.
Teria como utilizar esta função para carregar arquivo pdf com senha (Arquivo bloqueado)?

ou seja, ao carregar o vba aplica o senha de abertura e executa sua exibição?

Motivo: Quero preservar meu Doc.pdf. Com a senha de abertua o usuario não poderá visualizar fora do form. (ou seja, usar o "salvar como").

at.




Option Compare Database
Option Explicit

Private Sub bt1_Click()
Call fncCarregaPdf(0)
End Sub

Private Sub bt2_Click()
Call fncCarregaPdf(1)
End Sub
'.................................................
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.AcroPDF0.Width = 568 * 24
Me.AcroPDF0.Height = 568 * 13
Call fncCarregaPdf
Me!bt1.SetFocus
End Sub
'...................................................
Private Sub fncCarregaPdf(Optional j As Byte = 0)
Dim origem As String
On Error Resume Next
origem = CurrentProject.Path & "\pasta\artigos\"
Select Case j
Case 0 'botão 1
Me!AcroPDF0.LoadFile origem & "Artigo01.pdf"
Case 1 'botão 2
Me!AcroPDF0.LoadFile origem & "Artigo02.pdf"

End Select
End Sub

Não tenho nada nesse sentido aqui, mas já tentou digitar uma vírgula depois do nome do arquivo a ser aberto para ver se aparecem opções? Talvez algo assim:

Me!AcroPDF0.LoadFile origem & "Artigo01.pdf", "SuaSenha"

Mas veja as dependências do objeto na janela imediata. Deve ter algo lá que ajude.

Criquio

Não encontrei nada a respeito...

seu exemplo não dá certo, não carrega o pdf......

Manda uma amostra somente com o formulário que tem esse controle e tambem os módulos que ele depender para funcionar para ver se conseguimos encontrar algo.

Bom dia Criquio

segue anexo.....

O anexo não está abrindo. Acusa tipo de arquivo desconhecido. Veja se consegue abrir esse arquivo do zip aí. Se não conseguir tambem, é porque ele se corrompeu.

Bom dia Criquio

segue novamente.....

Seu banco não abre nas versões anteriores à 2010, nem mesmo na 2007 que possui mesma extensão. Isso acontece porque provavelmente esteja utilizando recursos exclusivos do 2010. Como tenho várias versões aqui, incluindo a 2010, tudo tranquilo, mas aconselho a postar sempre em uma versão mdb ou pelo menos do 2007, pois muitos não possuem ainda o 2010.
Quanto ao caso, podes tentar uma solução meio pog, utilizando SendKeys no Timer. Por que no Timer? Porque demora um certo tempo desde que se clica no link para abrir o pdf até aparecer a caixa de solicitação da senha. Então, deixe o "Intervalo do cronômetro" em 0 mesmo, a menos que esteja usando ele para outra coisa, e nesse caso precisará implementar mais. Depois da linha de abrir o PDF, coloque TimerInterval = 1000. No evento "No timer", coloque:

SendKeys "SenhaDoPDF"
SendKeys "{Enter}"
TimerInterval = 0

Deve funcionar.

Muito Bom Criquio

Funcionou perfeitamente.....

Estou colocando aqui o arquivo exemplo para compartilhar com os amigos do Forum

obrigado Criquio

at.

Grato pelo retorno. O fórum agradece.