Desabilitar Modo de Design

[fabinhofalcao 0]

Pessoalestou com uma dúvida que é o seguinte:Gostaria de desabilitar o banco de dados para que o usuário não o consiga abrir no modo de design.Gostaria saber se tem jeito de desabilitar a tecla shift para a pessoa não conseguir abrir no design.Se alguém souber,poderia me ajudar?obrigado

[Spiritwalker 0]

Prezado fabinhofalcao:Há mais de uma maneira de restringir o acesso de usuários aos objetos (tabelas, consultas, formulários, etc.) de um BD Access. Observe que utilizei o termo "restringir" e não "impedir". A segurança do Access nesse sentido é deficiente e qualquer um com um pouco mais de conhecimento técnico pode burla-la. Você pode, por exemplo, atribuir senhas e permissões ou mesmo converter o arquivo para MDE. Nesse último caso, mantenha uma cópia do arquivo original ANTES da conversão pois, uma vez convertido, nem você terá mais acesso ao código VBA e aos objetos se desejar altera-los por qualquer motivo.Para desabilitar a tecla Shift, experimente criar um módulo com um nome qualquer e insira nele a codificação abaixo (os apóstrofes são comentários):Sub CriaPropInicializacao(Optional strNomeForm As String) 'Nome do Formulário Inicial CriaProp "StartupForm", dbText, strNomeForm 'Janela do Banco de Dados CriaProp "StartupShowDBWindow", dbBoolean, False 'Barra de Status CriaProp "StartupShowStatusBar", dbBoolean, True 'Barra de Ferramentas internas CriaProp "AllowBuiltinToolbars", dbBoolean, False 'Menus internos CriaProp "AllowFullMenus", dbBoolean, False 'Acesso ao codigo após ocorrer erro CriaProp "AllowBreakIntoCode", dbBoolean, False 'Altere para False para Teclas especiais (CTRL+G) CriaProp "AllowSpecialKeys", dbBoolean, False 'Altere para False para Bloquear Tecla Shift CriaProp "AllowBypassKey", dbBoolean, FalseEnd SubFunction CriaProp(strPropName As String, varPropType As Variant, varPropValue As Variant) As IntegerOn Error GoTo Sai 'Aciona o tratamento de erro Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb dbs.Properties(strPropName) = varPropValue CriaProp = TrueSai_Function: Set dbs = NothingExit FunctionSai:' Se a propriedade não existe, então cria If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp 'Retorna ao ponto Resume Next Else ' Error desconhecido CriaProp = False Resume Sai_Function End IfEnd FunctionE também no evento "Open" do formulário inicial do seu aplicativo, insira:Call CriaPropInicializacao("Inicial")Espero ter ajudado.Abraços.