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


2 participantes

    Mensagem de alerta Hyperlink

    avatar
    ssporch
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

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

    Mensagem de alerta Hyperlink Empty Mensagem de alerta Hyperlink

    Mensagem  ssporch 16/10/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
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Mensagem de alerta Hyperlink Empty Re: Mensagem de alerta Hyperlink

    Mensagem  thiagomcosta 16/10/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: 22/11/2024, 00:44