MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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]Erro de fonte confiável

    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty [Resolvido]Erro de fonte confiável

    Mensagem  Caio 20/9/2016, 16:16

    Pessoal preciso de uma ajuda, meu sistema é usado em servidor... e quando outro usuário tenta abrir o arquivo aparece a mensagem na imagem abaixo, alguém poderia me ajudar?
    Lembrando que já deixei o caminho da pasta onde está armazenado o arquivo como Confiável e Habilitei todas macros.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  ahteixeira 20/9/2016, 16:57

    Olá Caio,

    Com uma busca aqui do fórum por vezes tem o que pretendemos, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Veja abaixo se não é o que pretende (tem lá um link do colega Avelino Sampaio que explica tudo):
    https://www.maximoaccess.com/t6962-resolvidocomo-evitar-o-aviso-de-seguranca-com-a-mensagem-voce-deseja-abrir-este-banco-de-dados

    Abraço
    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  Caio 20/9/2016, 18:37

    Tentei e dá um erro na parte em vermelha.

    Option Compare Database
    Option Explicit

    Dim CaminhoLoc As String
    '--------------------------------------------------------------------------
    Public Function fncConfigMacro()
    Dim reg As Object
    On Error Resume Next
    '------------------------------------------------------------
    'Se encontrar uma das configurações já feitas, abortar função.
    '------------------------------------------------------------
    If fncJaConfigurado Then Exit Function
    '------------------------------------------------------------

    Set reg = CreateObject("wscript.shell")
    '------------------------------------------------------------
    'Configurando como confiável a pasta aonde se encontra seu BD
    '------------------------------------------------------------
    reg.RegWrite CaminhoLoc & "AllowSubfolders", 1, "REG_DWORD"
    reg.RegWrite CaminhoLoc & "Date", Date, "REG_SZ"
    reg.RegWrite CaminhoLoc & "Description", "Projeto exemplo", "REG_SZ"
    reg.RegWrite CaminhoLoc & "Path", fncLocalBd, "REG_SZ"

    Set reg = Nothing
    End Function

    '--------------------------------------------------------------------------
    Public Function fncLocalBd() As String
    On Error Resume Next
    '-----------------------------------------------
    'Localiza a pasta do Banco de Dados em execução
    '-----------------------------------------------
    fncLocalBd = Application.CurrentProject.Path
    End Function

    '--------------------------------------------------------------------------
    Private Function fncJaConfigurado() As Boolean
    Dim reg As Object
    Dim CaminhoGravado As String

    Set reg = CreateObject("wscript.shell")
    fncJaConfigurado = False
    On Error Resume Next

    '---------------------------------------
    'Captura o caminho da pasta no registro
    '---------------------------------------
    CaminhoGravado = reg.RegRead(CaminhoLoc & "\path")
    '------------------------------------------------------------
    'Compara o caminho da pasta do registro com o caminho atual
    '------------------------------------------------------------
    If CaminhoGravado = fncLocalBd Then fncJaConfigurado = True
    Set reg = Nothing
    End Function

    '--------------------------------------------------------------------------
    Private Function fncCaminhoLoc() As String
    Dim caminho As String
    Dim nomeBd As String

    '-------------------------------------------------------
    'Captura o nome do seu aplicativo para cria o nome da
    'pasta no trusted locations
    '-------------------------------------------------------
    nomeBd = CurrentProject.Name
    nomeBd = Mid(nomeBd, 1, InStr(nomeBd, ".accd") - 1)

    '--------------------------------------------------------------
    'Monta caminho do registro em função da verão atual do Access
    'e do nome do seu aplicativo
    '--------------------------------------------------------------
    caminho = Replace("HKEY_CURRENT_USER\Software\Microsoft\Office _
    \[v]\Access\Security\Trusted Locations\[bd]\", "[v]", Application.Version)


    caminho = Replace(caminho, "[bd]", nomeBd)

    '------------------------------------------
    'Passa o caminho do registro para a função
    '------------------------------------------
    fncCaminhoLoc = caminho
    End Function




    E na Macro?
    Uso Access 2010 e só tenho a opção de chamar a função. No exemplo dele exige a Condição.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  ahteixeira 20/9/2016, 19:37

    Olá, no site do colega Avelino Sampaio tem exemplo para baixar (tuto5.zip).
    Baixe e teste com o exemplo.
    Abraço
    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  Caio 21/9/2016, 12:45

    Olá,

    Baixei e dá o mesmo erro, creio que seja por causa da versão do Access. Uso o 2010.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  ahteixeira 21/9/2016, 15:11

    Olá, partilhe foto do erro que esta a dar no código.
    Abraço
    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  Caio 21/9/2016, 19:20

    Segue...

    E o Locations fica selecionado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  ahteixeira 21/9/2016, 22:55

    Olá Caio, acho que não baixou o exemplo e verificou o código.
    Acabei de baixar e verificar, veja e compare com o seu:
    Código:
       '-----------------------------------------------------------------------------------------
        'Monta caminho do registro em função da verão atual do Access e do nome do seu aplicativo
        '-----------------------------------------------------------------------------------------
        caminho = Replace("HKEY_CURRENT_USER\Software\Microsoft\Office\[v]\Access\Security\Trusted Locations\[bd]\", "[v]", Application.Version)
        caminho = Replace(caminho, "[bd]", nomeBd)
    Abraço
    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  Caio 22/9/2016, 12:38

    Não está funcionando...

    Nessa parte eu tenho que especificar o endereço do meu arquivo ou o nome?
    caminho = Replace(caminho, "]bd]", nomeBd)


    Outra dúvida é, na Macro do mestre Avelino ele especifica a condição CurrentProject.isTrusted=-1, porém no 2010 só consigo especificar o nome da função.
    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  Caio 22/9/2016, 20:04

    Sobre a macro, consegui fazer com que execute a função fncConfigMacro() se for encontrado a propriedade CurrentProject.isTrusted=-1.

    Porém mesmo assim não está funcionando, lembrando que a mensagem que me aparece é a de Runtime.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  ahteixeira 23/9/2016, 11:35

    Olá Caio, respondendo à mensagem nº 9:

    Neste parte
    Código:
    caminho = Replace(caminho, "[bd]", nomeBd)
    é mesmo assim, não precisa de alterar nada.

    Já compilou o seu projecto, não apresenta erros?

    O exemplo do colega Avelino Sampaio está a funcionar.
    Baixe de novo e teste numa pasta nova, pode ser "C:\TesteAvelino" e verifique se funciona ou não.
    A informação também é clara, tente estudar melhor.

    Se a situação se mantiver, terá que postar o seu arquivo para podermos testar.
    Abraço

    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  Caio 27/9/2016, 15:23

    Resolvido!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  ahteixeira 27/9/2016, 17:54

    Olá Caio, vejo que resolveu!
    Pode partilhar onde estava o problema.
    Assim pode ser ajuda para outros membros.
    Abraço
    Caio
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  Caio 27/9/2016, 19:27

    Boa tarde,
    Segue Módulo:

    Código:
    Option Compare Database
    Option Explicit

    Dim CaminhoLoc As String

    Public Function fncConfigMacro()
    Dim reg As Object

    On Error Resume Next
    '----------------------------------------
    'Se já foi configurado, abortar função.
    '----------------------------------------
    If fncJaConfigurado Then Exit Function
    '------------------------------------------------------------

    CaminhoLoc = fncCaminhoLoc
    Set reg = CreateObject("wscript.shell")
    '--------------------------------------------------------
    'Configurando pasta confiável aonde se encontra seu BD
    '--------------------------------------------------------
    reg.regWrite CaminhoLoc & "AllowSubfolders", 1, "REG_DWORD"
    reg.regWrite CaminhoLoc & "Date", Date, "REG_SZ"
    reg.regWrite CaminhoLoc & "Description", "Projeto exemplo", "REG_SZ"
    reg.regWrite CaminhoLoc & "Path", fncLocalBd, "REG_SZ"
    '-----------------------
    'libera pasta de rede
    '-----------------------
    reg.regWrite fncCaminhoLoc(True) & "AllowNetworkLocations", 1, "REG_DWORD"

    Set reg = Nothing
    End Function

    Public Function fncLocalBd() As String
    On Error Resume Next
    '-----------------------------------------------
    'Localiza a pasta do Banco de Dados em execução
    '-----------------------------------------------
    fncLocalBd = Application.CurrentProject.Path
    End Function

    Private Function fncJaConfigurado() As Boolean
    Dim reg As Object
    Dim CaminhoGravado As String

    CaminhoLoc = fncCaminhoLoc
    Set reg = CreateObject("wscript.shell")
    fncJaConfigurado = False
    On Error Resume Next
    '---------------------------------------
    'Captura o caminho da pasta no registro
    '---------------------------------------
    CaminhoGravado = reg.RegRead(CaminhoLoc & "\path")

    '-----------------------------------------------------------
    'Compara o caminho da pasta do registro com o caminho atual
    '-----------------------------------------------------------
    If CaminhoGravado = fncLocalBd Then fncJaConfigurado = True
    Set reg = Nothing
    End Function

    Public Function fncCaminhoLoc(Optional rede As Boolean = False) As String
    Dim caminho As String
    Dim nomeBd As String

    '-----------------------------------------------------------------------------
    'Captura o nome do seu aplicativo para cria nome da pasta no trusted locations
    '-----------------------------------------------------------------------------
    nomeBd = Application.CurrentProject.Name
    nomeBd = Mid(nomeBd, 1, InStr(nomeBd, ".accd") - 1)
    If rede Then
        '--------------------------------
        'caminho que libera pasta de rede
        '--------------------------------
        caminho = Replace("HKEY_CURRENT_USER\Software\Microsoft\Office\[v]\Access\Security\Trusted Locations\", "[v]", Application.Version)
    Else
        '-----------------------------------------------------------------------------------------
        'Monta caminho do registro em função da verão atual do Access e do nome do seu aplicativo
        '-----------------------------------------------------------------------------------------
        caminho = Replace("HKEY_CURRENT_USER\Software\Microsoft\Office\[v]\Access\Security\Trusted Locations\[bd]\", "[v]", Application.Version)
        caminho = Replace(caminho, "[bd]", nomeBd)
    End If
    '------------------------------------------
    'Passa o caminho do registro para a função
    '------------------------------------------
    fncCaminhoLoc = caminho
    End Function

    E na Macro:

    Nome da macro "AutoExec"

    Se [currentproject].[istrusted]=True..............................Então
    ExecutarCódigo
    Nome da função =fncConfigMacro()

    Lembrando que o formulário principal que abrirá junto ao sistema tem que ser especificado Em Arquivo>Opções>Banco de dados atual>Formulário de Exibição.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7119
    Registrado : 15/03/2013

    [Resolvido]Erro de fonte confiável Empty Re: [Resolvido]Erro de fonte confiável

    Mensagem  ahteixeira 29/9/2016, 14:40

    cheers

      Data/hora atual: 6/3/2021, 11:50