[Resolvido]Erro ao abrir banco de dados, "Parar Todas as Macros"

Boa Tarde!!!

Meus amigos estou com esse erro ao abrir o banco de dados no Windows 10 com office ultimo.




Se puderem me ajudar agradeço.

Segue o banco de dados em anexo.

Olá Braine, tudo ok?

Vamos lá...

Você precisa configurar a segurança de macros no access.

Uso access 2013 32bits

No meu caso é em:
Arquivo
    Opções
         Central de Confiabilidade
                Configurações da central de Confiabilidade >
                       Configurações de Macro
                             Habilitar todas as macros...

Feito isso feche o banco e tente executar novamente...

Normalmente no access por padrão as macros estão desabilitadas.

Espero ter ajudado.

estou usando: Windows 10 e access 2013 32bits

Ola, agradeço pela atenção. Mais são varias maquinas que vão ter acesso ao banco de dados. E vivem trocando as maquinas, se tiver uma outra opção para esse erro agradeço.

Ok, neste caso veja se é isto que precisa?

vá a mensagem numero 8 do nosso grande mestre j Paulo

Abraço...

https://www.maximoaccess.com/t317-nivel-de-seguranca

Já tenho na verdade esse código no banco de dados, mais não está funcionando. Não sei o que está errado, se quiser baixar e olhar.

Option Compare Database

'------------------------------------------------------------
' autoexec
'
'------------------------------------------------------------
Function autoexec()
On Error GoTo autoexec_Err

DoCmd.OpenForm "Menu de controle", acNormal, "", "", , acIcon

'Desabilita mensagens de segurança
Dim strInibeAlertas As Object
On Error Resume Next
Set strInibeAlertas = CreateObject("Wscript.Shell")
strInibeAlertas.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\4.0\Engines\SandBoxMode", 2, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\11.0\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security\Level", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\VBAWarnings", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\DisableAllAddins", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Level", 1, "REG_DWORD"
End Sub

autoexec_Exit:
Exit Sub

autoexec_Err:
MsgBox Error$
Resume autoexec_Exit


End Sub

Oi Braine, me diz qual office está usando no momento?

Grato.

No aguardo.


estou usando: Windows 10 64 bits e Access 2013 32bits

Eu estou com windows 10 64 bits, office 2007.

As maquinas estão com Windows 10 64 bits, e o ultimo office que precisa de ativação online com o e-mail cadastrado. Como na imagem acima que mostrei, dai pede para ativar os macros, tanto no 2007 como nos demais.

Muita coisa mudou desde a elaboração deste código. Sistemas 64 bits foram desenvolvidos.

Veja isso

UsandoAccess escreveu:Windows de 64 bits

O Windows de 64 bits traz um emulador de 32 bits chamado de WOW64 (Windows 32 ON Windows 64), permitindo que qualquer aplicação de 32 bits seja executada, sem problemas. Para isso, são criados: estrutura de pastas, variáveis de ambientes e registros do Windows independentes

fonte:
usandoaccess.com.br/tutoriais/configurar-api-access-de-64-e-32-bits-ptrsafe.asp?id=1

Ou seja, office 32 em windows 64 o caminho é
"HKEY_CURRENT_USER\Software\Wow6432Node\Microsoft\Office\11.0\Access\Security\..."

Agradeço DamascenoJr mais o meu conhecimento e basico.

Não consegui achar "a solução".

Continuo na busca...

Ainda não tinha baixado seu exemplo para testar. Resolvi baixar e não me deparei com a situação apresentada em suas imagens. Tem alguma sequencia de ações que eu deva seguir para me deparar com a mensagem que você recebe?

Somente abrir o banco de dados, e aparece estas imagens...

A dica da mensagem número 2 resolveu o problema em uma máquina? Se sim, agora só precisaremos de uma forma de automatizar isso nas demais máquinas.

E Windows 10, sem a licença do office... ele executa o banco de dados mais não te da acesso as opções pois não tem a licença

Vou dar como resolvido...mais não consegui uma solução.

Como você disse que são várias máquinas (além dessa do office sem licença), estávamos aguardando você dar retorno se as dicas resolveram em pelo menos uma dessas outras máquinas.

Bom, como não tivemos esse retorno de testes seu, farei um pequeno exemplo executável habilitador de macros.

Espero que teste e que dê retorno.

Levando em consideração as condições expostas por você (várias máquinas, office sem licença e conhecimento básico), criei um habilitador de macros externo e em formato executável (independente do office para assim não ser bloqueado). Teste.

Espero que habilite suas macros.

https://www.dropbox.com/s/54r2donl3iv2jiq/inicializador-com-vba-ativo.zip?dl=1

Agradeço vou testar...

Algum retorno aqui?

Bom dia Damasceno

O link retorna " Virus "

Por ser um executável que faz alterações no registro é mesmo possível que alguns antivírus façam alerta.

Estou no trabalho. Quando chegar em casa boto aqui o código por trás do arquivo.

Segue o código do arquivo que faz as alterações no editor de registro.

Código:

Private Sub Form_Load()

    If Not fncCargaIsWin64 Then
        Call MsgBox("Não foi possível detectar a arquitetura do sistema operacional.", vbCritical, "Inicialização")
        Call Unload(Me)
        Exit Sub
    End If
   
    If Not fncCargaAccAct Then
        Call MsgBox("Não foi possível detectar a versão MS Access ativa.", vbCritical, "Inicialização")
        Call Unload(Me)
        Exit Sub
    End If
   
    Set objReg = CreateObject("wscript.shell")
   
        Call objReg.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\" & strAccAct & ".0\Access\Security\Trusted Locations\" & strNomeArquivo & "\AloowSubFolders", 1, "REG_DWORD")
        Call objReg.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\" & strAccAct & ".0\Access\Security\Trusted Locations\" & strNomeArquivo & "\Date", Now, "REG_SZ")
        Call objReg.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\" & strAccAct & ".0\Access\Security\Trusted Locations\" & strNomeArquivo & "\Description", strNomeArquivo, "REG_SZ")
        Call objReg.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\" & strAccAct & ".0\Access\Security\Trusted Locations\" & strNomeArquivo & "\Path", App.Path, "REG_SZ")
   
    Set objReg = Nothing

End Sub

Como dito, por ser um executável fazendo essas alterações é possível que alguns antivírus acusem falso positivo.

Bom dia Damasceno e obrigado pelo código.

Coloquei no primeiro formulário da ase de dados mas ao fazer Debug .....

Veja a imagem

Tenho Win 10 64 com o Office 2013 32

Falta a Função ?

Obrigado

Assis, você não entendeu. Esse código é do arquivo do formato .exe que eu criei. Ele não é para o Access. Eu mostrei o código para que veja que o arquivo .exe não é um vírus.

Obrigado Damasceno

E este exemplo ?

Libera o VBA onde ?

Aguardo

Em todo o módulo istrusted.

A lógica do código escreve no editor de registro do windows o local onde a pasta do arquivo se encontra como confiável.

Braine, aguardamos retorno.