[Resolvido]Como proteger o banco de dados?

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.

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

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

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

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

Como protegeu a BD?

pcnet isso não é gratuito não

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.