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

5 participantes

    [Resolvido]Como proteger o banco de dados?

    avatar
    Clebson9
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 05/04/2016

    [Resolvido]Como proteger o banco de dados? Empty [Resolvido]Como proteger o banco de dados?

    Mensagem  Clebson9 9/4/2016, 13:19

    Bom dia,

    Eu tomei algumas providências para tentar proteger o banco de dados mas não acho que esteja protegido, por exemplo:


    Eu criei uma senha para ter acesso ao uso do banco ( até aqui tudo bem);

    Mas como fazer para que essas pessoas que possuem acesso ao banco de dados não altere o banco de dados, para isso eu criei uma macro que maximiza o menu principal e que não deixa minimizar para que ninguém configure o banco de dados, criei um botão que quando clica para sair ele não fecha o formulário do menu principal e sim que fecha o banco de dados todo. Assim eu evitei que alguém tivesse acesso a parte da programação.

    Mas para que eu mesmo possua esse acesso eu criei outro botão(invisível) e escondi em um certo lugar dos formulários para clicar e fechar apenas o menu e assim liberando o acesso. Mas em alguma ocasião poderá alguém sem querer clicar lá.

    Espero que tenha dado para entender, gostaria de saber se existe uma forma correta de fazer isso porque o que fiz foi só uma "gambiarra".


    Abraços.

    ssvp gosta desta mensagem

    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Como proteger o banco de dados? Empty Re: [Resolvido]Como proteger o banco de dados?

    Mensagem  alpedro 9/4/2016, 14:18

    1º copie a BD para fazer o teste.

    Pode ocultar a janela , criando o módulo:
    Option Compare Database
    Option Explicit
    'Autor de la función base: Indeterminado
    'Declaraciones
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "User32" _
    (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

    'Constantes
    Private Const GWL_EXSTYLE = (-20)
    Private Const WS_EX_LAYERED = &H80000
    Private Const LWA_ALPHA = &H2

    Function AccessTransparente(Nivel As Integer)
    'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
    'Objetivo: Ajustar el nivel de transparencia de la ventana principal
    ' de access. El nivel de transparencia debe estar entre 0 a 250
    '.............................................................................
    Dim lngHwnd As Long
    If Nivel < 0 Or Nivel > 250 Then Exit Function
    lngHwnd = Application.hWndAccessApp
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
    End Function


    e ao abrir a BD chamar a função:
    Private Sub Form_Load()
    Call AccessTransparente(0)

    depois pode desabilitar a tecla shift (criando outro módulo), que pressionada + tecla ENTER abre a BD:
    Option Compare Database
    Option Explicit

    Public Function TeclaShift(strPropName As String, _
           varPropType As Variant, varPropValue As Variant) As Integer
       Dim dbs As Database, prp As Property
       Const conPropNotFoundError = 3270
       Set dbs = CurrentDb
       On Error GoTo Change_Err
       dbs.Properties(strPropName) = varPropValue
       TeclaShift = True
    Change_Bye:
       Exit Function
    Change_Err:
       If Err = conPropNotFoundError Then
           Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
           dbs.Properties.Append prp
           Resume Next
       Else
               
           TeclaShift = False
           Resume Change_Bye
       End If
    End Function


    Última edição por alpedro em 10/4/2016, 20:06, editado 1 vez(es)
    pcnet
    pcnet
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 303
    Registrado : 16/12/2015

    [Resolvido]Como proteger o banco de dados? Empty Re: [Resolvido]Como proteger o banco de dados?

    Mensagem  pcnet 9/4/2016, 14:40

    Olá boa tarde,

    Outra alternativa infalível é usar a aplicação gratuita do mestre Avelino Sampaio, o Open_v3.

    Pode ver o tópico e descarregar o ficheiro gratuitamente aqui:

    Segurança máxima, usando o OPEN

    Cumprimentos
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Como proteger o banco de dados? Empty Re: [Resolvido]Como proteger o banco de dados?

    Mensagem  alpedro 10/4/2016, 20:04

    crie um botão em menu principal
    Private Sub btn_permitir_Click()
    vForm = "PERMITIR"
    DoCmd.OpenForm "senha"
    End Sub

    depois crie um form PERMITIR com a opção ok a assinalar.
    A opção_ok vem da tabela : tem que criar um campo Ativar_Shift com o tipo de dados Sim/Não.

    Ao fazer clique então:

    Private Sub opção_ok_Click()

    ' validar  Desabilitar/Abilitar tecla Shift
    If Me.btn_ok.Value = True Then
           TeclaShift "AllowBypassKey", dbBoolean, True   ' habilita
       Else
           TeclaShift "AllowBypassKey", dbBoolean, False  ' desabilita
    End If

    End Sub




    segui este exemplo:

    https://www.youtube.com/watch?v=1oacMbJRFLo
    avatar
    Clebson9
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 05/04/2016

    [Resolvido]Como proteger o banco de dados? Empty Obrigado

    Mensagem  Clebson9 20/4/2016, 15:03

    Obrigado, depois de ter apanhando bastante para conseguir fazer funcionar. Deu tudo certo, obg.
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Como proteger o banco de dados? Empty Re: [Resolvido]Como proteger o banco de dados?

    Mensagem  alpedro 20/4/2016, 17:12

    Como protegeu a BD?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2325
    Registrado : 23/01/2018

    [Resolvido]Como proteger o banco de dados? Empty Re: [Resolvido]Como proteger o banco de dados?

    Mensagem  crysostomo 24/11/2022, 00:38

    pcnet isso não é gratuito não


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 888
    Registrado : 23/08/2010

    [Resolvido]Como proteger o banco de dados? Empty Re: [Resolvido]Como proteger o banco de dados?

    Mensagem  Mylton 24/11/2022, 10:17

    Apenas dando um pitaco…

    No site do isladogs existem algumas dicas interessantes.
    (isladogs.co.uk/security-challenges/index.html).

    Acredito que poderá obter um norte.

      Data/hora atual: 7/12/2022, 14:34