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


3 participantes

    [Resolvido]Habilitar tecla Shift

    avatar
    Willian Santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    shift - [Resolvido]Habilitar tecla Shift Empty [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos 14/4/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 14/4/2014, 14:00, editado 1 vez(es)
    avatar
    halmeida
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    shift - [Resolvido]Habilitar tecla Shift Empty Re: [Resolvido]Habilitar tecla Shift

    Mensagem  halmeida 14/4/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.
    avatar
    Willian Santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    shift - [Resolvido]Habilitar tecla Shift Empty Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos 14/4/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    shift - [Resolvido]Habilitar tecla Shift Empty Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Avelino Sampaio 14/4/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.  

    http://www.usandoaccess.com.br/tutoriais/tuto45.asp?id=1#inicio

    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:

    http://www.usandoaccess.com.br/tutoriais/tuto8.asp?id=1#inicio

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Willian Santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    shift - [Resolvido]Habilitar tecla Shift Empty Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos 14/4/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    shift - [Resolvido]Habilitar tecla Shift Empty Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Avelino Sampaio 14/4/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: http://www.usandoaccess.com.br/tutoriais/seguranca-tabelas-vinculadas.asp
    Criar senha para o VBA
    Gerar o ACCDE
    Adquirir meu vídeo para saber como evitar as brechas na programação.


    Sucesso!
    avatar
    Willian Santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    shift - [Resolvido]Habilitar tecla Shift Empty Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Willian Santos 14/4/2014, 14:24

    Muito bom Avelino,

    Vou verificar suas dicas.

    Obrigado.

    Conteúdo patrocinado


    shift - [Resolvido]Habilitar tecla Shift Empty Re: [Resolvido]Habilitar tecla Shift

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:37