MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Habilitar tecla Shift

    Compartilhe

    Willian Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/07/2011

    [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos em Seg 14 Abr 2014, 00:51

    Boa Noite pessoal,

    Estou desenvolvendo um projeto em access e cometi um erro de principiante, coloquei a rotina pra bloquear a tecla Shift, fiz o bloqueio pra testar, porem não coloquei no menu o form que tem o botão para chama a função que desbloqueia.

    Resultado: O meu projeto está bloqueado, e o pior, o último backup foi ontem pela manhã, já desenvolvi vaaaarias coisa e não queria perder, pois deu muito trabalho.  Crying or Very sad 

    Alguém pode me ajudar? Obrigado.


    Última edição por Willian Santos em Seg 14 Abr 2014, 14:00, editado 1 vez(es)

    halmeida
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 07/08/2011

    Re: [Resolvido]Habilitar tecla Shift

    Mensagem  halmeida em Seg 14 Abr 2014, 01:29

    Pressionar as seguintes combinações de tecla pode ajudar:
    ctrl+, (control + vírgula) - libera o modo design do formulário;
    ctrl+g (control mais 'g') - visualiza janela do código do formulário.

    Daí é só mudar algum código para habilitar a tecla shift.

    Willian Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/07/2011

    Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos em Seg 14 Abr 2014, 01:49

    Boa noite halmeida,

    Tentei fazer o que você falou mas não funcionou, na verdade não consigo nem ver os objetos, formulários, relatórios.

    Ele já entra no modo de execução com o meu ribbon personalizado.

    Se ajudar segue a Func que uso para habilitar e desabilitar o Shift.

    Código:
    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 ' Propriedade não encontrada.
    Set prp = dbs.CreateProperty(strPropName, _
    varPropType, varPropValue)
    dbs.Properties.Append prp
    Resume Next
    Else
    ' Erro desconhecido.
    ChangeProperty = False
    Resume Change_Bye
    End If
    End Function

    Obrigado pela ajuda.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    Registrado : 04/04/2010

    Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Avelino Sampaio em Seg 14 Abr 2014, 09:00

    Olá!

    Crie um novo BD e acrescente este procedimento abaixo em um módulo global.

    Public Sub fncDesbloqueiShift()
    Dim bd As DAO.Database
    Set bd = OpenDatabase("c:\SuaPasta\SeuBdBloqueado.accdb")
    bd.Properties!AllowBypassKey.Value = true
    Msgbox "Tecla SHIFT reativada..."
    End Sub


    Assista o último vídeo deste meu artigo até o final e verá como aplicar este procedimento acima além de descobrir uma falha bizarra na versão 2007.  

    [Você precisa estar registrado e conectado para ver este link.]

    A conclusão é que este SHIFT, apesar de ajudar na defesa, não traz a segurança esperada.  Quer segurança bem superior e que não precise perder seu tempo com programação, basta utilizar o OPEN:

    [Você precisa estar registrado e conectado para ver este link.]

    Aguardamos

    Willian Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/07/2011

    Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos em Seg 14 Abr 2014, 13:57

    Perfeito Avelino, funcionou de primeira...  cheers 

    Realmente confiar somente no bloqueio do Shift não é uma boa ideia, vou da uma verificada nesses links que você passou para tentar melhorar a proteção do meu aplicativo.

    Só mais uma duvida, você escreve o seguinte em um de seus artigos.

    "A segurança do aplicativo é relativamente simples de se resolver: basta convertê-lo para a extensão ACCDE, que o oponente não terá acesso aos códigos desenvolvidos por você."

    Hoje a conversão do front-end para ACCDE garante 100% que o meu código ficara protegido? Ou ainda existe alguma possibilidade de quebrar essa proteção e acessar o meu código e o designer dos formulários?
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    Registrado : 04/04/2010

    Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Avelino Sampaio em Seg 14 Abr 2014, 14:19

    William,

    o foco principal está em proteger os dados do cliente, a não ser que seu projeto seja algo de inédito ou revolucionário no mercado e que esteja gerando muito dinheiro.

    O ACCDE é uma ótima arma para dificultar o invasor em capturar algo no seu código que o leve a descobrir como acessar a base de dados. Precisa adquirir o meu vídeo indicado acima para entender como melhorar o nível de programação e assim evitar ao máximo que um programador experiente consiga algo mesmo estando em ACCDE.

    Minha sugestão para um projeto com bom nível de segurança e utilizando tabelas vinculadas:

    Usar o OPEN, conforme indicação no link acima
    Usar o código PROTEC com a intenção de gerar senha FALSA para os vínculos. Veja neste meu artigo: [Você precisa estar registrado e conectado para ver este link.]
    Criar senha para o VBA
    Gerar o ACCDE
    Adquirir meu vídeo para saber como evitar as brechas na programação.


    Sucesso!





    Willian Santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 19/07/2011

    Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos em Seg 14 Abr 2014, 14:24

    Muito bom Avelino,

    Vou verificar suas dicas.

    Obrigado.

      Data/hora atual: Qui 20 Jul 2017, 15:38