Nível de Segurança

Amigos,

Teríamos uma maneira de neutralizar a crítica de nível de segurança que o Access emite na abertura do banco.

Deixa eu detalhar mais:
no Access 2003 ele mostra no caption Aviso de Segurança >> Talvez esse arquivo não seja seguro por ....

Então clicamos abrir e pronto, Não há tanto problema.

Agora quando vamos abrir no Access 2007:
O sistema emite esta mensagem quase despercebida. o conteúdo do banco aparece mas, com restriçoes e só quando apertamos o botão opções que aparece:
1° ajuda a proteger....
2° Habilitar este conteúdo

devemos clicar o 2° item para rodar perfeitamente.

Para não vim esta mensagem sempre devemos fazer:

No Access 2003 ir em Ferramentas > Macro > Segurança e marcar Nível Baixo.
No Access 2007 ir em Opções do Access > Central de Confiabilidade > Configurações da Central de Confiabilidade > Locais Confiáveis > Adicionar Novo Local Clicar em OK e pronto ... UFA!!! é impressão minha ou ficou mais complicado que no 2003???

Amigos quero concluir dizendo que os usuários finais de nossas aplicações nunca estarão preparado para enteder e resolver isto.

O excelente trabalho que colocamos no mercado pode já na abertura se muito mal interpretado e sofrer uma metralhada de críticas.

Como vocês tratam disso?

Eu atualmente, distribuo a aplicação (Front-End) e junto vai o tutorial de configuração. Fiz este tutorial no word e agora tô pensando em reproduzir este procedimento no Camtasia Estudio para facilitar ainda mais para os usuários finais.

Amigo, tem como resolver isso via vba em um form, programando para desabilitar automaticamente. Creio que o amigo JPaulo tenha maiores detalhes a respeito.

Coloque este ficheiro junto ao banco;

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

No evento vba ao abrir do seu primeiro formulario;

Private Sub Form_Open(Cancel As Integer)
Dim x
RunReg = Shell("regedit.exe /s """ & CurrentProject.Path & "\DesabilitaSegurancaAccess2007.reg""", 0)
End Sub

Voilá............mensagens de segurança foram para o fundo do mar.

Se preferir colocar por defeito já dentro do seu banco, não necessita do ficheiro que lhe enviei, basta:

Habilitar a referencia Microsoft Scripting Runtime

E no evento ao abrir do seu Primeiro formulário;

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

Ok amigo, vou testar depois te respondo.

João Paulo,

No 2007, não funcionou o código e o ficheiro (ele critica dizendo que não há variavel definida em RunReg. E o por defeito tanbém não funcionou no 2007.

Já no 2003 funcionou o por defeito alterando 12.0 para 11.0

Ah o seguinte,

Seria possível implementarmos para as duas versões 2003 e 2007;

Ou terei que fazer pacotes de instalação distintos?

Olá Dilson bom dia;

Testado no 2003, 2007 e 2010, funciona a 100%

Private Sub Form_Open(Cancel As Integer)
'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

João,
devo estar desatento em alguma coisa,

implementei no ao abrir do 1º form

e habilitei por defeito o Microsoft Scripting Runtime

experimentei no access 2007 s.o. windows 7 e vista

não experimentei ainda no 2003 e 2007 xp professional

o que posso tá errando?

Amigão no Vista e XP funfa beleza, que eu tenho e já fiz diversos testes, no Seven eu não sei como se comporta.

Recomendo que faça, Inicira, Executar, digite Regedit e bata enter.

Siga pela linha do código acima, e vá até ás chaves que estão lá escritas, veja se os valores estão com zero ou 1.

Se estiverem com 1, altere para zero, abra e feche o formulario para correr a função, depois vá a outra pasta qualquer no regedit e volte novamente à chave e veja se o valor alterou para 1, se alterou o código está a bombar.

João Paulo,

Eu e também meus clientes usamos o xp.

estou a fazer testes no seven e vista, por estar a 800km de casa, trabalhando.

Farei o seguinte, semana que vem estarei de volta ao lar, ao meu laboratório.

Daí farei as experiências no regedit e vamos ver como se sai,

Obrigado pela atenção. Até semana que vem, te retorno o contato.

Boa viagem amigão, aguardo o seu retorno.

Olá a todos

Politicamente mais correto , para o Access 2007, é criar um local confiável e não desabilitar por completo a segurança do Access do cliente.

No meu site tem um exemplo de como configurar um local confiável, alterando o registro do Windows. Poderá utilizar o método sugerido por mim ou adaptá-lo ao do João Paulo.

Macro de Segurança e o CurrentProject.isTrusted

O método que considero mais profissional é vc empacotar seu aplicativo num programa instalador. Aí vc configura o programa instalador para criar um local confiável no registro do Windows ( O innosetup/istool funciona para todas as versões do Windows ), sem a necessidade de qualquer intervenção do usuário.

Como exemplo, vc pode baixar um programa em access que eu vendo, chamado MontaRibbons. Observe que ao instalar ele cria um grupo na lista de programas do windows, atalho no desktop e configura o local confiável para rodar sem problemas ( tudo isso feito com inoosetup). Depois de testar basta desisntalar.

MontaRibbons

O innosetup é gratuito e tem muito material na internet - valhe muito apena estudar isso.

Bom estudo

João Paulo amigão bem vindo ao fórum depois das merecidas férias,

Eu testei esse ultimo código e realmente funfou a 100% com a seguinte observação:

no primeiro acesso ele faz a restrição como de praxe (como de sempre foi preciso permitir tanto no 2003 como 2007);

Apartir do segundo acesso as restrições já não existem mais, objetivo/código alcançado.

João teria como funfar isso já no primeiro acesso?

Avelino,

Com certeza é mais correto determinar um local confiável,

Vou estudar o innosetup, obrigado pela dica!

Olá Dilson, beleza ?

É possivel sim na primeira abertura.

Eu tenho o InnoSetup (gratuito) e o manual, se precisar eu envio.

Olá Paulo bom dia, aproveitando o embalo, Up o manual do inno pra gente!!!
Abs

Ai vai;

http://dl.dropbox.com/u/771097/TUTORIAL%20INNO%20SETUP.doc

Estou querendo retirar a crítica de segurança ao abrir o front-end, para que não seja necessário adicionar o local como confiável na central de confiabilidade do Access Office 365.

Alguém poderia me ajudar?

Agradeço a atenção.

Mostrei uma solução aqui
https://www.maximoaccess.com/t37892-resolvidoerro-ao-abrir-banco-de-dados-parar-todas-as-macros#259642

DamascenoJr,

Funciona perfeitamente o seu executável.

No meu caso, apesar de serem vários computadores, todos rodam com Windows 10, 64bits. Teria como rodar o código dentro do próprio banco de dados, ao abrir o primeiro formulário?

Trata-se de órgão governamental, não vou poder rodar esse executável externo.

Agradeço a atenção.

Retirar a crítica sem adicionar o local como confiável? Assim somente permitindo a execução de todo e qualquer código. Veja as mensagens acima do JPaulo.