[Resolvido]Desabilitar Segurança de Macro ao entrar na Aplicação

Olá. boa tarde a todos,

Por gentileza, alguém poderia me informar se já há alguma solução para ao entrar no form principal  da aplicação feita no Access, desabilitar o Mode de segurança? Pesquisei e vie vários scripts. Contudo, nenhum funcionou...

Estou usando o Open do Avelino com o arquivo .accdr, conforme ele explica no vídeo... Mais se a segurança do Access estiver habilitada, mostra o botão para habilitar e de fundo o Access... É peia!

Desde já agradeço a ajuda...

Olá Francisco,

Já experimentou uma pesquisa aqui no fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search
Procure a palavra "Segurança"
Abraço

Boa tarde a todos!

cjsilva2013, Não entendi se esta falando de uma faixa amarela com a mensagem "Habilitar Macros" que aparece ao executar um sistema em access.

Mais em minhas aplicações eu as retiro configurando no próprio access mesmo.

Em: Arquivo/Opções/Central de Confiabilidade/Configurações da Central de Confiabilidade/Configurações de Macro

E marco a opção "Habilitar todas as macros"

Assim não fica solicitando aos usuários para habilita-las ao iniciar a aplicação.

Boa tarde grande Bil. É essa faixa mesmo que aparece.

A questão é o seguinte, o usuário nem sempre tem experiencia ou precisa ver o Access ao entrar no Sistema que ele adquiriu. Seria interessante e muito útil se através de uma macro AutoExec executasse a desabilitação ao entrar no primeiro form da aplicação...  Procurei mo fórum, até tem uma do Avelino, mais refere-se ao XP. Outra que na chave HKEY da erro...

Sou novo no Access, estou engatinhando... Estou desenvolvendo algumas aplicações para aprender e futuramente trabalhar com programação Access. Pois gosto de programar. Mais ainda não tenho experiência...

Um exemplo: Nem todos os técnicos ao instalar o Office, instalam o Access junto... E ao disponibilizar a aplicação feita em Access, o cliente não quer saber se o Office está ou não instalado. Ele quer a aplicação rodando!

Nos testes finais para liberação de uma aplicação, me deparei com essa situação que ainda não tinha visto... Mesmo usando o OPEN, se o Access for instalado ou reinstalado ao entrar na aplicação, mostra a barra com o botão e expõe o Access de cara.

A minha dúvida é como resolver esse problema de forma satisfatória e automática,  e não ter que ficar clicando no botão "Segurança de macro". Estou usando o Office 2013 e a versão da aplicação 2007.

Desde já agradeço a cooperação...

Tentei usar essa função do Amigo Avelino:

Código:


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


Nessa instrução fica vermelho:

caminho = Replace("HKEY_CURRENT_USER\Software\Microsoft\Office _
\[v]\Access\Security\Trusted Locations\[bd]\", "[v]", Application.Version)

Francisco

A função fncCaminhoLoc()  que voc}e tem é diferente da minha,
veja se não é isso:

Código:


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


[ ]'s

Grande Noobzinho, você é uma benção em minha vida. Deus continue te abençoando Dr. Vou testar e dou retorno...

Grande Nobzinho,

Criei um módulo Global
"copiei a função que você passou nele"

No Ao Abrir do Form
Call fncCaminhoLoc

Ao entrar na Aplicação mostra o seguinte erro:

Não pode localizar o nome 'HKEY_CURRENTE_USER' inserido na expressão...

Ao dar OK, na tela do Macro Passo-a-passo:

HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security\Trusted Locations\JefTV BereiaSoft\

Erro 2482

Essa é nova pra mim... Companheiro...

Me tire só uma dúvida, por favor!

A barra de Aviso de Segurança de Macro, o botão HABILITAR CONTEÚDO, vai aparecer do mesmo jeito, é isso? Só após o usuário clicar nele autorizando as macros... Daí em diante já não aparecerá mais. É isso?

Desde já, mais uma vez agradeço pela sua gentileza em me ajudar.

Francisco

Desculpe responder somente agora, queimou a fonte do meu pc e só agora pude entrar no fórum.

Posso estar errado,mas o usuário tem que aceitar a primeira vez na barra de aviso de segurança para liberar

as macros, com isso irá criar a pasta Secury\Trusted Locations.

Assim o código irá encontrar a pasta.

Faça um teste, antes verifique o registro se tem essas pasta.

Se não houver, rode o access e libere as macros e verifique se elas foram criadas

Aguardo ...

Tranquilo, grande Noobzinho...

Você é um baluarte da informação... Entendi como funciona...

Apliquei essa função do João Paulo no Ao Abrir do Form de Login. Dá certo? O que você acha?

Private Sub Form_Open(Cancel As Integer)
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"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\VBAWarnings", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\DisableAllAddins", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Level", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security\VBAWarnings", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security\DisableAllAddins", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security\Level", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\VBAWarnings", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\DisableAllAddins", 1, "REG_DWORD"
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Level", 1, "REG_DWORD"
End Sub

Bom dia a todos,

Depois de quebar cabeça tentando achar uma solução que me service para utilizar nas Aplicações que pretendo desenvolver. Conforme esse tópico que abri e assim como muitos tem essa dúvida sobre como habilitar todas as macros de segurança do Access que ao entrar já mostra a barra e a aplicação fica exposta... Consegui fazer de uma forma diferente e para mim deu certo...

Usei duas idéias do João Paulo e pra mim funcionou veja abaixo como solucionei o meu caso:

Fiz o seguinte, criei uma subpasta instalação na pasta da Aplicação e num bloco de notas colei a função do João Paulo:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security]
"VBAWarnings"=dword:00000001
"DisableAllAddins"=dword:00000001

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations]

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\Location2]
"Path"="C:\\Program Files\\Microsoft Office\\Office12\\ACCWIZ\\"
"Description"="Access default location: Wizard Databases"

Dulpliquei as linhas "HKEY_CURRENT_USER" para Office, 12, 14, 15 e 16

Salvei como Habilita.reg, salvei na subpasta Instalação.

No Ao Abrir do form Principal da Aplicação redirecionei para Ao Abrir do Form, executar o .reg com a dica do grande João Paulo...

'Créditos do João Paulo

Dim strCaminho As String
   strCaminho = "C:\JefTV\Instalações\Desabilita.reg"
   Call Shell(strCaminho, 1)

Resultado:

Antes de Rodar fiz o seguinte:
Arquivo> Opções> Central de Confiabilidade> Configurações da Central de Confiabilidade> Desabilitar todas as Macros com Notificações

Entrei na Aplicação com a segurança de Macros Habilitada e não apareceu a barra de segurança...

Verifiquei em:
Arquivo> Opções> Central de Confiabilidade> Configurações da Central de Confiabilidade> E está marcada a opção: Habilitar todas as macros (não recomendado; códigos possivelmente perigosos podem ser executados)

Testei em dois computadores e deu OK...

Desde já agradeço ao companheiro, Nobezinho, wil200, ahTeixeira e os demais que sempre tem me ajudado nessa caminhada. Para mim é coisa nova, mais chego lá...

Dou por encerrado e resolvido o problema...

Francisco

Sim, está certo, tem que fazer uma verificação de qual versão do office está rodando na maquina em questão.

Mas atente para isso, terá que verificar no registro do windows e para o windows 64 a pasta é diferente:

SOFTWARE\wow6432node\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE

Se for distribuir o aplicativo, melhor seria fazer isso pelo instalador do que pelo access.

Boa sorte !!

Bom dia, grande Noobezinho.

Como tenho frisado, estou aprendendo e aprendiz está sempre descobrindo coisas... Principalmente tendo como professores, pessoas capazes como os senhores. É um previlégio!

Meu Windows é 8.1 64bits... Mais o Office é o 2013 32bits...

Concordo com você, mais uma busca. Pois as aplicações que estou desenvolvendo pretendo distribuir.

No Office 32bits, aqui funcionou em três máquinas diferentes. Ao entrar na aplicação com as macros habilitadas, não apresenta mais a barra com o botão, e ao verificar, está como "Habilitar todas as macros (não recomendado; códigos possivelmente perigosos podem ser executados)".