MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    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?

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    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!






    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    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: Sab 03 Dez 2016, 19:37