[Resolvido]Desabilitar mensagens de segurança de macro

Boas pessoal estou com um enorme problema fiz uma bd em access e agora quando abro em outros pc's perguntame para activar macros e da-me acesso de visualizacao a parte das tabelas e forms e consultas etc... e eu nao queria que fizesse isso como fasso para evitar isto e activar as macros automaticamente para nao dar acesso a minha bd?

Agradeço toda a ajuda

comprimentos

Amigo aqui no forum tem um exemplo no repositório

"Tirar mensagens de segurança"

http://maximoaccess.forumeiros.com/repositorio-de-exemplos-ms-access-f7/nivel-de-seguranca-e-referencias-em-falta-t540.htm

Antes de abrir a bd clique na aplicação e depois fecha-a. Agora pode abrir a sua bd. Só é necessário fazer isto uma única vez,

colega continua a aparecer as informações do access e só me da acesso se habilitar as macros! Compiei o form que estava no projecto e executei na minha bd e continua igual e ao abrir o exe da-me um erro "raiz invalida na chave de registo"

Que versão do access está usando?

2007 amigo

Teste este pois o outro link pode estar desactualizado


http://dl.dropbox.com/u/5454503/SegERef.zip

Teste este também

dá o mesmo amigo Run-time error'-2147024891 (80070005)':
Raiz invalida na chave de registo
"HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Office\11.0\Common\Security\DisableHyperlinkWarning".
O anexo que me enviou da exactamente o mesmo erro

Se é o 2007 é Office 12

"HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Office\12.0\Common\Security\DisableHyperlinkWarning".

Private Sub Form_Open(Cancel As Integer)
Dim strInibeAlertas As Object
Set strInibeAlertas = CreateObject("Wscript.Shell")
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

Pois é, obrigado Mestre. Tenho que actualizar o link para o exe aqui no fórum pois estão desactualizados em todo o lado. Ainda hoje coloco aqui os exemplos devidamente retificados e actualizados.

O amigo João pode ainda complementar com estes comandos;

http://maximoaccess.forumeiros.com/t1811-resolvidobloquear-designer-e-barra-de-ferramentas

Título do tópico alterado de acordo com a duvida.

Agradecia que o colega experimenta-se agora. Meti um Timer, pelo que não será necessário um botão fechar.

http://dl.dropbox.com/u/8157744/messoff.zip

Mestre JPaulo; coloquei assim, pois penso que abrange o 2003 e o 7


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"

Muito obrigado por ajudar amigo jpaulo! E a si tambem amigo vieira soft! Tanto como o codigo do amigo jpaulo quando abro o formulario que inicia o access neste caso formulario de login, nao funcionou! E amigo vieirasoft o seu exe ja deu desta vez mas quando executo o formulario referencias na minha base de dados quando a volto a abrir aparece para o pedido para executar as macros!
muito obrigadoo a todos novamente!
Ajudem-me porfavor pois esta a dar comigo em doido

Não tenho aqui o 2007 à mão para poder testar e acho estranho esse comportamento, pois normalmente o exe resolve essa parada.

Vieira esse Dim strInibeAlertas As Object tambem é meu...

Testei no 2003 e 2007 e funcionou em pleno, aliás sempre funcionou desde a saída do Ms Access 2007.

João, salve este .reg no seu computador, pressione duas vezes e depois abra o seu banco.

http://dl.dropbox.com/u/771097/DesabilitaSegurancaAccess2007.reg

Jamais irá ter essa mensagem.

Mestre

Não entendi? O exe é uma compilação do seu código conforme inicialmente postado aqui no fórum. Coloquei alguma coisa a mais?

.
Nada a mais amigo Vieira, só referenciei que esse tambem foi elaborado por mim e está 100% funcional.

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"
End Sub


A referencia VBA Microsoft Scripting Runtime tem de estar marcada.

Mas isso não me canso de referenciar. Se me permite vou juntar este ficheiro Reg ao exemplo que coloquei no fórum.

Eu meti tambem o codigo do amigo jpaulo no formulario que abre a minha bd:
Private Sub Form_Open(Cancel As Integer)
Dim strInibeAlertas As Object
Set strInibeAlertas = CreateObject("Wscript.Shell")
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

E abro em outro pc a minha bd e aparece na mesma abilitar macros amigo vieira!

Eu vou dizer passo a passo o que eu fiz como o seu exe

Eu abri o exe no meu ambiente de trabalho e disse a actualizar instalacação! Instalação feita com sucesso! depois abri a sua bd copiei o seu form referencias para a minha bd e exetutei esperei mais ou menos 10 segundos antes de fechar o form! Depois feicho a bd. Quando abro a bd em outro computador aparece para abilitar as macros nao abilita sozinho!
Alem disso apareceram uns dlls no meu ambiente de trabalho, eles fazem parte da bd amigo vieira?

abraço

Agora deu amigo jpaulo o seu arquivo! Mas quando passo a bd para outro pc aparece na mesma para abilitar as macros da bd! O que posso fazer para ao abrir a bd em qualquer pc abilitar automaticamente as macros?
Agradecido por toda a vossa ajuda amigos

As referências devem ser copiadas quando terminar a BD. A partir daí não precisa mais porque elas viajam com a sua aplicação para outro pc. Não precisa pois de repetir a operação.

Continuo a achar estranho esse comportamento, porque o exe é uma compilação do código do nosso Mestre JPaulo e a única função é abreviar e ser mais cómodo efectuar esse procedimento de imediato evitando assim que na primeira abertura ainda surja a mensagem de segurança. Esse é o papel do exe.

Quando voce clica no botao referencias do form referencias e suposto aparecer alguma coisa amigo vieira? e que nao me aparece nada e como o butao nao fize-se nada. Por isso e que tambem acho estranho pois eu passo a bd para outro pc e aparece sempre a janela de abilitar as macros!

Amigo vou-lhe explicar

Esse botão chama as referências em falta e necessárias ao seu projecto e coloca as mesmas dentro da pasta da sua aplicação. São as tais DLL's que você já referiu. Para que serve isto? Quando transportar a sua BD a outro computador evitar a mensagem(ns) de referèncias em falta.

Como proceder.

Incluir o form referências dentro da sua aplicação. Quando terminar esta chamar esse form e clicar no botão. Verificar a Pasta da aplicação de que foram metidas as DLL's. Pode de seguida destruír o form referências.

Se ainda persistir alguma dúvida apite

Não esquecer este alerta que o Mestre fez acima

A referencia VBA Microsoft Scripting Runtime tem de estar marcada.

Peço imensa desculpa pela duvida mas como marco uma referencia VBA Microsoft Scripting Runtime? É atraves daqueles codigos que o amigo jpaulo meteu ao abrir um form?

Abra um Módulo vba >>>Tools>>>References. Com o cursor desloque o quadro até localizar a referência Microsoft Scripting Runtime. Clique na caixa para activa-la. O problema quase de certeza que está aí e tudo irá funcionar correctamente.

Bem colega nao percebo mesmo esta a dar comigo em doido! Já activei no vba o scrip runtime e continua igual passo a db dentro de uma pasta com dos dll's e contuinua a pedir para abilitar macros! Não percebo mesmo :O

Pesso imensa desculpa por o estar a incomodar e sempre a chatear

Não aborrece não. O que aborrece é não estar-mos a conseguir dar solução a uma coisa que é simples, provada e ainda à pouco o Mestre JPaulo referenciou que tinha testado e aprovado. Sinceramente, se tudo está a funcionar, se o Microsoft Scripting Runtime está activado, não entendo também o que se estar a passar. Era suposto o problema estar resolvido conforme já aconteceu em outros tópicos com o mesmo problema.

Como dizem que sou um teimoso, vamos tentar outra forma. Baixe e antes de abrir a sua app, abra esta e coloque a macro em Low. Vamos ver se assim dá.

http://dl.dropbox.com/u/8157744/MsAccessSecurity.rar

Bem amigo estou perto de dar em doido pois também não funcionou

Esgotei as possibilidades amigo. Se nada funciona nessa BD não sei que mais possamos fazer.

Será que e por causa de eu nao ter o ficheiro "VBE6EXT.OLB" nos meus dll's que guarda automaticamente?

Não me parece mas você tem esse ficheiro nas referências

Colega tive uma ideia! Ao abrir o meu formulario principal isto e o de login metia a abrir o ficheiro exe que me passou e assim ja ocultava as macros!
Como fasso em vb amigo?
Private sub Form open()
Call(meto aqui a localização exacta do exe?)
End sub

abraço

Você deve abrir o exe antes de abrir a sua aplicação

Não da para programar para abrir o exe antes de abrir o access amigo?

João, pense um pouco...se chamar o exe pelo access, este já está aberto, certo. Então a mensagem de segurança já abriu no ecrã, certo, logo o que queremos é abrir o exe para retirar as mensagens de segurança. O exe tem que ser aberto primeiro.

Vou dar este tópico por resolvido, pois já vai longo e as possibilidades paraecem à partida esgotadas. Se houver algo de novo postamos aqui.

ok amigo muito obrigado por tudo agradeço desde ja toda a sua ajuda e a do amigo Jpaulo!
Um abraço enorme

Sempre estamos ao dispor. Bom trabalho.