Visualizzazione struttura

Question

In access 2010-2013 è possibile inibire la visualizzazione struttura agli utenti, di tutti gli oggetti di access ?

Answer 1

ciao Mescaleros21,

mi pare che in passato abbiamo già affrontato questo argomento  con te....vado a memoria.

Comunque....

Le cose non sono cambiate nel senso che la soluzione migliore per impedire l'accesso alla struttura ed al codice VBA devi creare un MDE o ACCDE a seconda della versione di Access che hai a disposizione, >=2007 per la seconda <=2007 per la prima.

Esistono tooling commerciali per il reverse engeneering anche di versione MDE e ACCDE o strutture specializzate che possono offrire servizi di reversing ma devi dimostrare che il db è tuo e/o sei il legittimo sviluppatore.

Altro aspetto è la base dati.

Con Access e il suo DBengine non c'è modo di impedire l'accesso ai dati quelli restano sempre e comunque accessibili.

Ci sono alcuni modi per renderne difficile l'accesso, ma nessuno di essi garantisce una protezione di essi  al 100%.

Per proteggere anche i dati, devi cambiare DB con tutte le conseguenze che questo comporta, anche dal punto di vista delle competenze.

HTH.

Ciao, Sandro.

Answer 2

Innanzi tutto fatti almeno un backup del tuo DB.

Se non l'hai già, crea una macro con nome AutoKeys che intercetti (ad esempio) una combinazione di tasti (Ctrl + 0 che sarebbe ^0 ) e che effettui un Esegui codice attivando la funzione SetShiftKey().

Aggiungi un modulo contenente la seguente funzione:

Function SetShiftKey()

    Dim Cdb As Object, PRP As Variant

    Set Cdb = CurrentDb

    On Error GoTo Errore

    Beep

    If Cdb.Properties("AllowBypassKey") = True Then

       Cdb.Properties("AllowBypassKey") = False

'       MsgBox "Shift Key Disabled", vbOKOnly

      Else

       If InputBox("Password: ", CurrentDb.Properties("AppTitle")) = "mare1234" Then

          Cdb.Properties("AllowBypassKey") = True

       End If

'       MsgBox "Shift Key Enabled", vbOKOnly

       End If

Chiudi:

    Exit Function

Errore:

    If Err = 3270 Then

       Set PRP = Cdb.CreateProperty("AllowBypassKey", dbBoolean, True)

       Cdb.Properties.Append PRP

       Resume Next

       End If

    Resume Chiudi

End Function

Attivando il tuo Db se digiti Ctrl+0 disabiliti la Shift-key , se lo ridigiti la riabiliti.

Facci sapere

Ciao Mimmo

Answer 3

Allora devi inibire il tasto Shift. (Vedi AllowByPassKey).

Answer 4

Qualcuno un po' più pratico sa che se va in file - opzioni - database corrente  li rende visibili

Intendevo , come evitare anche questo

In ogni caso qualcosa che permetta al gestore (amministratore) del database di vedere e agli utenti inibire

Answer 5

Ciao,

per prima cosa puoi nascondere il menu di navigazione degli oggetti :

File->Opzioni->Database corrente->Visualizza riquadro di spostamento = falso

Inoltre potresti inibire lo shift.

Dacci ulteriori chiarimenti.

Mimmo