[Resolvido]Aviso ao abrir um PDF

Bom dia Amigos

Como evitar este Aviso do Office




O código do Comando segue abaixo:

Private Sub Comando9_Click()
Dim varItem As Variant

If IsNull(Me.Lista0) Then
MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
Exit Sub
End If

For Each varItem In Lista0.ItemsSelected
If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then

Dim strCaminho$

strCaminho = BackEndPath & "\PDF\"


Application.FollowHyperlink strCaminho & Me.Lista0.Column(0)

Else
DoCmd.CancelEvent
   Exit Sub
End If
Next varItem
Me.Lista0.Requery
End Sub

Pesquisando na Net, não sou só eu ...

answers.microsoft.com/en-us/msoffice/forum/all/security-warnings-some-files-can-contain-viruses/2a4dce81-40e0-4b96-bbdf-80d98f57a18a

Obrigado

Boas..

Já experimentou acrescentar o local das pastas como sendo um local confiável ?

Arquivo.
Central de confiabilidade.
Locais confiável.
Adicionar um novo local.

não custa fazer o teste.

Silvio

Não resultou ....

Obrigado

Bom dia
Up

Isso acontece porque você está a usar o hiperlink, em vez do shell;

Código:

Dim varItem As Variant
Dim strCaminho As String
Dim tgtfile As String
Dim Shex As Object

  Set Shex = CreateObject("Shell.Application")
 
If IsNull(Me.Lista0) Then
    MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
    Exit Sub
End If

For Each varItem In Lista0.ItemsSelected
If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then

strCaminho = BackEndPath & "\PDF\"
  tgtfile = strCaminho & Me.Lista0.Column(0)
  Shex.Open (tgtfile)

Else
  Exit Sub
End If
Next varItem
Me.Lista0.Requery

Bom dia Assis!

Já testou este método?

Código:

CreateObject("Wscript.Shell").RegWrite _
             "HKCU\Software\Microsoft\Office\" & Application.Version &  _
             "\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"

Bom dia Carlos

Aonde e como ?

Obrigado

Bom dia JPaulo

Não funfa

Obrigado

Isso quer dizer o quê ?

Algum erro ?

Mesma mensagem dos hiperlinks ?

JPaulo

Quer dizer que não abre o documento PDF

O código da Msg Nº 1 é da sua autoria

Obrigado

O código da msg 1 em alguns computadores dá a mensagem devido ás seguranças.

O segundo código aqui abre e funciona em pleno sem mensagens de seguranças.

Faça o teste indicando o caminho, por exemplo;

Coloque um pdf com o nome de teste.pdf na pasta C:\TEMP

Código:

strCaminho = "C:\temp\"
  tgtfile = strCaminho & "teste.pdf"
  Shex.Open (tgtfile)

Assis,

O código que sugeri cria a chave no registo para não aparecer a msg de segurança.
Eu costumo colocar num botão do formulário de manutenção, pois é necessário ativar apenas uma vez em cada workstation.

Não se deve mexer nas chaves de registo do sistema operativo, rapaz.

Até porque alguns clientes não são ADMIN`s da máquina e não vai funcionar.

JPaulo

Não mexi nas chaves de registo do sistema operativo.

Em C:\Temp

Funciona sem erro nem mensagem

Falei nas chaves de registo mas foi para o Carlos.

Se funciona é porque funciona, então o passo seguinte é você verificar se o caminho e nome do ficheiro está correto ou se tem espaços, ou ainda se o ficheiro existe.

Tem espaços ...

Não é pelos espaços.

Alterei o nome de um PDF :

Para Valores.PDF e continua a não abrir nem informa erro.

Bom almoço JPaulo

JPaulo,

por norma, não é preciso ser ADMIN da workstation para poder mexer no HKCU, rapaz...

Carlos então faço-o para si, não venha aqui incentivar os usuários a mexer nas chaves de registro do sistema operativo, que esse não é o intuito deste fórum.

Boa tarde Assis

Coloca esto num módulo:

Código:

Option Explicit

Declare Function Ejecuta Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
 ByVal lpFile As String, _
 ByVal lpParameters As String, _
 ByVal lpDirectory As String, _
 ByVal nShowCmd As Long) As Long

No formulario:

Código:

Dim Docum As String
    Docum = "D:\Pruebas\Plan Cuentas.pdf" 'mudar o caminho onde seu arquivo está
    Ejecuta 1, "open", Docum, "", "", 1

Saludos

Boa tarde

Com o novo código do JPaulo, com a alteração de mudar a linha de cor vermelho, para a Verde


Dim varItem As Variant
Dim strCaminho As String
Dim tgtfile As String
Dim Shex As Object

  Set Shex = CreateObject("Shell.Application")
 
If IsNull(Me.Lista0) Then
   MsgBox "Selecione Primeiro o PDF a Abrir !", vbCritical, "Aviso"
   Exit Sub
End If

For Each varItem In Lista0.ItemsSelected
If MsgBox("Confirma a " & Chr(13) & "Abertura do PDF ? ", vbYesNo + vbQuestion, "Aviso ") = vbYes Then

' strCaminho = BackEndPath & "\PDF\"

strCaminho = BackEndPath & "PDF\"


  tgtfile = strCaminho & Me.Lista0.Column(0)
  Shex.Open (tgtfile)

Else
  Exit Sub
End If
Next varItem
Me.Lista0.Requery

Franklin

Não testei, mas vou testar a sua dica e amanhã retorno

Obrigado

Assis,se não for encomodo,daria pra enviar um exemplo com esse código,tambem tenho esse problema com a mensagem.

Keynan

Mensagem Nº 23