MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Mensagem de alerta Hyperlink

    Compartilhe

    ssporch
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 19/10/2010

    Mensagem de alerta Hyperlink

    Mensagem  ssporch em Seg 16 Out 2017, 13:58

    Prezados(as),

    Montei um BD com os playbacks de músicas que consegui baixar pela Internet.

    No Formulário que desenvolvi, basta clicar no hyperlink que mostra o caminho do arquivo para abrir a música.

    Porém, irritantemente, sempre surge o alerta padrão que "alguns arquivos podem ser conter vírus ou ser prejudiciais".

    O quê já fiz?

    - Baixei o nível das macros
    - Já incluí a pasta onde os arquivos estão nos Documentos Confiáveis
    - Já fiz alterações usando o Regedit (segundo alguns colegas sugeriram por aqui em outros posts e em artigos pela internet)

    NADA FAZ SUMIR O MALDITO ALERTA!

    Há alguma saída "mágica"?

    P.S.: Uso Access 2010!

    Atenciosamente,

    Sérgio Sporch
    São Paulo/SP/Brasil
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 231
    Registrado : 23/01/2017

    Re: Mensagem de alerta Hyperlink

    Mensagem  thiagomcosta em Seg 16 Out 2017, 14:41

    Quando eu atualizava meu front end, sempre aparecia uma mensagem destas.
    Resolvi com o código abaixo, alterando o registro do windows. Inclusive a solução peguei aqui do fórum.
    Coloquei no evento do formulário que carrega automaticamente ao abrir o arquivo.

    Código:
    Private Sub Form_Load()

    'Requer a seguinte referência VBA ativa:
    'Microsoft Scripting Runtime
    'Tirado daqui http://www.maximoaccess.com/t15142-resolvidohiperlink-nao-abre-arquivos-office
    'Autor JPaulo
    Dim strInibeAlertas As Object
    On Error Resume Next
    Set strInibeAlertas = CreateObject("Wscript.Shell")
    strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"
                           
    'Aqui continua o código........

    End Sub

      Data/hora atual: Ter 21 Nov 2017, 17:36