[Resolvido]Necessito desabilitar a Tecla Shift ....

Olá amigos,

só estou querendo desabilitar a tecla shift para bloquear os objetos do meu BD.

Não preciso habilitar novamente, por isto entrei no formulario inicial, no evento macro on load e coloquei o seguinte codigo.


Private Sub Form_Load()

TeclaShift “AllowBypassKey”, dbBoolean, False ‘Dasativa a tecla Shift
DoCmd.ShowToolbar “Ribbon”, acToolbarNo ‘Oculta a cinta de opcoes



End Sub


mas nao está executando, meu access é 2013, obrigado

Luis

Boa  tarde !

Eu uso :

  Bloquear Shift :

     ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

  Desbloquear Shift :

     Dim bd As DAO.Database
     Set bd = CurrentDb
     bd.Properties!AllowBypassKey.Value = True

Coloquei as opções de habilitar ou desabilitar o bloqueio em uma área com acesso limitado ao administrador, assim facilita se for necessário desbloquear em alguma necessidade.

Abraços,

Amigos

Com ajuda do gdrblow, apliquei no meu BD e ficou muito bom, consegui travar a tecla shift......

obrigado

Me desculpe ! Faltou a função...

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
   Dim dbs As Object, prp As Variant
   Const conPropNotFoundError = 3270

   Set dbs = CurrentDb
   On Error GoTo Change_Err
   dbs.Properties(strPropName) = varPropValue
   ChangeProperty = True

Change_Bye:
   Exit Function

Change_Err:
   If Err = conPropNotFoundError Then    ' Property not found.
       Set prp = dbs.CreateProperty(strPropName, _
           varPropType, varPropValue)
       dbs.Properties.Append prp
       Resume Next
   Else
       ' Unknown error.
       ChangeProperty = False
       Resume Change_Bye
   End If
End Function


Anexei um exemplo...

Opa...

O anexo...

Boa Noite Pessoal

Testei os códigos e funcionam perfeitamente.

Analisando a parte:

Set dbs = CurrentDb


Poderia informar um outro BD? E assim ativar ou desativar a tecla shift?

Se positivo como seria a forma?

Boa noite NightHorus, você teria um exemplo desse DB?

Luis A. escreveu:só estou querendo desabilitar a tecla shift para bloquear os objetos do meu BD.

Não preciso habilitar novamente

Nesse caso é mais seguro converter o arquivo em MDE ou ACCDE. Embora o shift seja desabilitado, um invasor pode habilitar novamente.

Boa noite!

A função acima, caso usada no codigo que estamos trabalhando, acaba trancando o programa, estou certo? Eu utilizei uma copia para ativa-la. Apos a primeira inicialização, nao é possivel desfazer a mudança e ficamos sem acesso ao codigo, correto? Ou tem alguma forma de desfazer a mudança? Caso nao haja forma de voltar atras, imagino que a função deve ser usada com extremo cuidado.

No meu caso, utilizei uma copia para depois criar um arquivo .accde  . Desta forma acredito que o sistema fica segura, sem acesso ao codigo ou às tabelas tambem. (Com a tecla shift ativada, notei que o usuario mal-intencionado ainda poderia acessar as tabelas, as consultas, e muda-las a vontade.)