MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


+2
NightHorus
Luis A.
6 participantes

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

    avatar
    Luis A.
    Novato
    Novato


    Respeito às regras : 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. 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 : 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 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 : 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. 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 : 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 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...

    JLF gosta desta mensagem

    avatar
    NightHorus
    Novato
    Novato


    Respeito às regras : 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 2/11/2016, 13:47

    Opa...

    O anexo...
    Styluss
    Styluss
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Styluss 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
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  marcofar07 22/3/2020, 01:29

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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.
    avatar
    rogercarvalho
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 22/10/2021

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

    Mensagem  rogercarvalho 22/4/2023, 00:38

    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.)

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 00:50