MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Aviso ao abrir um PDF

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 16/1/2021, 10:14

    Bom dia Amigos

    Como evitar este Aviso do Office

    [Resolvido]Aviso ao abrir um PDF Erro_p10


    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


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 16/1/2021, 10:51

    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


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4747
    Registrado : 20/04/2011

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Silvio 16/1/2021, 12:26

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 16/1/2021, 17:22

    Silvio

    Não resultou ....

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 07:48

    Bom dia
    Up


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  JPaulo 18/1/2021, 09:57

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Instruções SQL como utilizar...
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 381
    Registrado : 28/10/2010

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  zcarloslopes 18/1/2021, 10:05

    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"
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 10:44

    Bom dia Carlos

    Aonde e como ?

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 10:51

    Bom dia JPaulo

    Não funfa

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  JPaulo 18/1/2021, 10:57

    Isso quer dizer o quê ?

    Algum erro ?

    Mesma mensagem dos hiperlinks ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 11:03

    JPaulo

    Quer dizer que não abre o documento PDF

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  JPaulo 18/1/2021, 11:09

    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)



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Instruções SQL como utilizar...
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 381
    Registrado : 28/10/2010

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  zcarloslopes 18/1/2021, 11:13

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  JPaulo 18/1/2021, 11:19

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 11:24

    JPaulo

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

    Em C:\Temp

    Funciona sem erro nem mensagem



    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  JPaulo 18/1/2021, 11:28

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 11:41

    Tem espaços ...

    [Resolvido]Aviso ao abrir um PDF Erro_p11


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 11:53

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 381
    Registrado : 28/10/2010

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  zcarloslopes 18/1/2021, 11:55

    JPaulo,

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  JPaulo 18/1/2021, 12:57

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Aviso ao abrir um PDF Folder_announce_new Instruções SQL como utilizar...
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 381
    Registrado : 28/10/2010

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  zcarloslopes 18/1/2021, 14:54

    JPaulo apenas tento ajudar e de acordo com o histórico e propósito deste forum.

    Se incentivei algo fora desse, peço desculpa por tal.

    Mas, assim sendo, sugiro que dê uma olhada neste tópico (entre outros), onde inclui a sua contribuição.

    https://www.maximoaccess.com/t317-nivel-de-seguranca?highlight=istrusted
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  FranklinJSP 18/1/2021, 17:12

    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


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 17:41

    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


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 17:42

    Franklin

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Kaynan 18/1/2021, 19:18

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4448
    Registrado : 06/11/2009

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Assis 18/1/2021, 19:53

    Keynan

    Mensagem Nº 23


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2637
    Registrado : 09/04/2012

    [Resolvido]Aviso ao abrir um PDF Empty Re: [Resolvido]Aviso ao abrir um PDF

    Mensagem  Kaynan 18/1/2021, 22:49


    Embarassed

      Data/hora atual: 13/6/2021, 00:07