MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Luis A.
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 13/09/2016

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

    Mensagem  Luis A. em 1/11/2016, 16:04

    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
    avatar
    NightHorus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 08/03/2016

    [Resolvido]Necessito desabilitar a Tecla Shift .... Empty Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  NightHorus em 1/11/2016, 16:48

    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,
    avatar
    Luis A.
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 13/09/2016

    [Resolvido]Necessito desabilitar a Tecla Shift .... Empty Obrigado a todos

    Mensagem  Luis A. em 2/11/2016, 13:40

    Amigos

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

    obrigado
    avatar
    NightHorus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 08/03/2016

    [Resolvido]Necessito desabilitar a Tecla Shift .... Empty Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  NightHorus em 2/11/2016, 13:43

    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...
    avatar
    NightHorus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 08/03/2016

    [Resolvido]Necessito desabilitar a Tecla Shift .... Empty Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  NightHorus em 2/11/2016, 13:47

    Opa...

    O anexo...
    Styluss
    Styluss
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 21/05/2014

    [Resolvido]Necessito desabilitar a Tecla Shift .... Empty Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  Styluss em 2/12/2018, 01:20

    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?


    .................................................................................
    Gilberto Moreira. ( Styluss )    -    A dúvida é o principio da sabedoria. (Aristóteles)
    Access 2013 - Windows 7 Home Premium - 64 Bits
    avatar
    marcofar07
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 02/04/2019

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

    Mensagem  marcofar07 em 22/3/2020, 01:29

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]Necessito desabilitar a Tecla Shift .... Empty Re: [Resolvido]Necessito desabilitar a Tecla Shift ....

    Mensagem  DamascenoJr. em 22/3/2020, 14:14

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 3/12/2020, 16:27