[Resolvido]Travar a tecla shift do Banco de Dados

Eu baixei na sala de repositórios um arquivo chamado "securitMs2007" de autoria do mestre JPaulo que tem a finalidade de bloquear a tecla shift do sistema que estou a entregar para um cliente. Acontece que o seu funcionamento está ok. O porém é que se coloco senha no sistema, ele dá erro exatamente na senha. Tem como corrigir isso ou só funciona sem senha.
É que eu coloquei senha, devido ao atendimento ao cliente que será feito no balcão, para evitar que algum abelhudo venha a mexer no sistema.
Desde já agradeço a atenção,

Presumo que não tem nada a ver com a senha o travamento da tecla shift. Verifique o que se passa com o código da senha.

Ola Vieira, acontece que a unica coisa que fiz para colocar senha foi no proprio access em "ferramentas de banco de dados" na opção "criptografar com senha". Daí criei a senha para que ao abrir o sistema ele me peça a senha. Quando fui utilizar o arquivo do repositório, ele dá erro. Se você puder testar em qualquer BD no access 2007, verá que o erro acontece. Quando retirei a senha do BD, aí o arquivo do repositório funcionou beleza...
OBS: Para colocar esta senha o BD tem que abrir de modo exclusivo, pois é uma senha geral para o sistema de BD.
Espero que tenha sido claro na explanação.
Desde já, obrigadão pela ajuda...

Agora entendi. Aconteceu o mesmo com um colega meu que usa o 7. Não resolveu, pois sempre que colocava a senha acontecia isso. Não tenho aqui o 7 para experimentar, mas o Mestre JPaulo que fez o exemplo talvez tenha alguma resposta para isso. Aguarde por favor.

Ok. fico no aguardo...

Esta alteração Trava a Tecla Shift de um Banco em Ms Access 2007 com Password.

No formulario tem de digitar a senha do outro banco.

http://dl.dropbox.com/u/771097/SecuritMs2007ComPassword.rar

Nota:
Só funciona para bancos com senha, para os outros terá de ser o original.

JPaulo, eu agradeço os arquivos que enviastes. Como eu precisava com certa urgencia uma solução, eu tirei a senha inicial do BD e usei o seu exemplo e deu certo. Vou testar este outro exemplo que funciona com senha para ver como funciona.
Só fiquei com uma duvida: Toda vez que utilizo codigos, e clico para depurar dá um erro e exatamente no codigo gerado por este arquivo que bloqueia a tecla shift:
O erro é o seguinte: Erro de compilação 'Sub' ou 'Function' não definida


Private Sub Comando0_Click()
If MsgBox("ESTA AÇÃO IRÁ BLOQUEAR A UTILIZAÇÃO DA TECLA SHIFT, IMPOSSIBILITANDO O ACESSO MESMO PARA MANUTENÇÃO. CONFIRMA O BLOQUEIO?", vbQuestion + vbYesNo, "CONTROLE DE MODIFICAÇÕES - ADMINISTRAÇÃO SISTEMA") = vbYes Then

'Trava a tecla shift (veja módulo Shift)
AlterarPropriedade "AllowBypassKey", dbBoolean, False
'Oculta objetos marcados como ocultos na janela banco de dados
Application.SetOption "Mostrar Objetos Ocultos", False

MsgBox "SISTEMA BLOQUEADO COM SUCESSO! TECLA SHIFT FOI DESBILITADA!", vbExclamation, "CONTROLE DE MODIFICAÇÕES - ADMINISTRAÇÃO"

End If

End Sub


Como entendo pouco de programação, fiquei preocupado com o erro, apesar de tudo estar funcionando normalmente. Você poderia me dar uma luz???

Desde já, muito obrigado pela atenção!!!

Você resolve isso facil.

Vá no modulo e Declare a função como Publica.

Public Function ChangeShift(strMDBName As String, fChange As Boolean)

JPaulo, eu sei que deve ser fácil corrigir isso como você mesmo disse. Porém como disse anteriormente, não tenho muita experiencia em programação. Sempre utilizei o Access utilizando mais as macros e poucos códigos. Aí fiquei na dúvida de como e onde colocar a função (publica) que você me indicou. Quando disse: Vai no módulo (?), é para ir nos códigos do meu BD ou no arquivo "SecuritMs2007" que você disponibilizou? Estou meio perdido... Se puder ajudar eu agradeceria muito.

No Módulo VBA que acompanha o exemplo. Abra o módulo e coloque a linha.

Public Function ChangeShift(strMDBName As String, fChange As Boolean)

Boa tarde

JPaulo não tem como aplicar esse exemplo para o Access 2003 .

Boa Tarde Assis

No repositório de exemplos tem para o 2003

Eu alterei como indicado aqui pelos companheiros do forum:
Public Function ChangeShift(strMDBName As String, fChange As Boolean)

O problema é que toda vez que vou no meu BD e edito um código qualquer e vou no menu e peço para compilar, aparece erro exatamente no mesmo ponto, ou seja, no código gerado quando utilizo o "SecuritiMS2007":

Private Sub Comando0_Click()
If MsgBox("ESTA AÇÃO IRÁ BLOQUEAR A UTILIZAÇÃO DA TECLA SHIFT, IMPOSSIBILITANDO O ACESSO MESMO PARA MANUTENÇÃO. CONFIRMA O BLOQUEIO?", vbQuestion + vbYesNo, "CONTROLE DE MODIFICAÇÕES - ADMINISTRAÇÃO SISTEMA") = vbYes Then

'Trava a tecla shift (veja módulo Shift)
AlterarPropriedade "AllowBypassKey", dbBoolean, False
'Oculta objetos marcados como ocultos na janela banco de dados
Application.SetOption "Mostrar Objetos Ocultos", False

MsgBox "SISTEMA BLOQUEADO COM SUCESSO! TECLA SHIFT FOI DESBILITADA!", vbExclamation, "CONTROLE DE MODIFICAÇÕES - ADMINISTRAÇÃO"

End If

End Sub


Tem algo que ainda tenho que fazer para corrigir isso, ou é normal acusar este erro de compilação???

Desde já, muito obrigado a todos...

Rapaz no codigo do exemplo que eu postei, não existe nenhum AlterarPropriedade "AllowBypassKey", dbBoolean, False

Se você alterou o codigo, então está ae o problema.

Para desativar a tecla shift a instrução é:

Print ChangeShift(SeuBanco, False)

Para ativar é:

Print ChangeShift(SeuBanco, True)

No modulo está:

Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, _
fChange, True)

Me perdoa se eu estiver errado. Mais eu não alterei o código. Realizei um teste aqui agora pouco excluindo o código gerado no meu BD ao usar o SecuritiMS2007. Testei e não deu mais erro de compilação. Então fechei o meu BD e executei novamente o SecuritiMS2007 (primeiro limpei toda lista e depois coloquei meu BD para bloquear o shift). Funcionou tudo certo. Porém ao executar no menu a opção Depurar / Compilar Teste volta a dar o erro. É que ao executar o SecuritiMS2007 ele cria um código dentro do meu BD que é o já descrito anteriormente. Eu sei que está funcionando, porém como não entendo muito de programação, fiquei preocupado quanto a este erro. Se puder testá-lo em algum outro BD e depois ver se ocorre o mesmo erro, poderia entender o que acontece. Desde já, muito obrigado pela atenção e disposição em ajudar...

Rapaz você está confuso.

O SecuritMS2007 abre um banco externo e ativa ou desativa a tecla shift, não cria qualquer código dentro do banco externo.

Realmente JPaulo, como sempre você estava com a razão.... É que havia testado um outro método para travar a tecla shift (por formulário) e neste método ele criou aquele código que havia mencionado. Como não o exclui, toda vez que iniciava o BD ele carregava e fiquei com a impressão que fosse do SecurityMS2007. Agora já fiz o reparo nos códigos do BD e deu tudo certo... Valeu mesmo pela atenção e dedicação com que tem nos atendido nas nossas dúvidas...

Eu fiz um teste aqui, mais não sei se é o correto. Coloquei este aplicativo (SecurityMS2007) no pendrive e executei por este pendrive para bloquear a tecla shift do BD que ficou na máquina do Cliente. Assim ficará bloqueado e este não terá acesso ao aplicativo SecurityMS2007. Está certo o que eu fiz, ou tem outra maneira de utilizar este aplicativo? Não vai dar nenhum erro no BD do meu cliente? Pelo teste que fiz deu certo, mais sempre fico com uma ponta de dúvida. É que temos sempre que buscar a perfeição e ela só vem quando corrigimos nossos erros...
Obrigado...

Amigo, esse é o procedimento correto sim, não vai existir problema algum.

Obrigado pelo retorno, o forum agradece.

Boa noite

JPaulo ainda será possível recolocar o link da mensagem Nº 6 ?

Obrigado

Aqui;

Donwload

Obrigado JPaulo

Prezado JPaulo, tentei utilizar esta mesmo arquivo para bloquear o shift no access 2010, mas Apresenta Erro.

Esta pedindo para atualizar para versão 64bits Pede para atualizar e analisar a função Declare e marcar com atributo PtrSafe.

Versão do meu Windows 7 é 64bits