Verrouillage ACCESS

Question

Bonjour,
Existe-t-il un moyen de verrouiller une base de donn&#233;es ACCESS 2000 et + afin d'&#233;viter qu'une autre personne ne puisse la modifier, voire consulter la structure de la base
Merci pour vos r&#233;ponses

rogers
rivoli17@aol.com
06.15.26.94.94

cs_hassen · Answer

oui on peut verouiller la base de donnee et ceci par le maniere de l'ouvrir

dim db as database
dim rec as recordset
set db=opendatabase( chemin_de_la_base , true )

comme ca la base est verouiller 

Hassen TUNISIE

cs_hassen · Answer

cs_hassen · Answer

ah oui je croit que j'ai mal compris votre question. vous voulez dire que meme quand votre programme vb ne fontionne pas la base ne peut pas etre ouverte.


eh bain dans ce cas vous n'avez qu'a mettre un mot de passe


pour cela vous ouvrer la base en mode exlusif dans access


menu outil / securit&#233; / definir le mot de passe de la base de donnee


et voila votre base est proteger par un mot de passe maintenant 

Hassen TUNISIE

srogers · Answer

Merci pour votre r&#233;ponse
Toutefois je donne quelques pr&#233;cisions suppl&#233;mentaires :
A l'ouverture de la base de donn&#233;es, seul moi-meme je peux l'ouvrir pour effectuer des modifications mais lorsque c'est l'utilisateur final, je ne voudrai pas qu'il accede aux tables ni aux requetes, formulaires, macros, etc...
Il aura seulement un menu general qui lui permettrait d'acc&#233;der aux formulaires et &#233;tats grace &#224; des boutons dans le formulaire.
Est-ce que le fait de mettre un mot de passe par le menu "outil / securit&#233; / definir le mot de passe de la base de donnee" r&#233;soudrait le probl&#232;me ?
Merci encore

rogers
rivoli17@aol.com
06.15.26.94.94

LSGSERVAL · Answer

Bonjour

Cela depend beaucoup du niveau de comp&#233;tences de tes utilisateurs.

Car effectivement on peut masquer les fenetres donnant acc&#232;s de la base, mais ensuite si l'utilisateur connait le moyen de les reactiver alors ....

Je croit me souvenir d'un message sur ce forum ou sur un autre traitant le probl&#232;me, je j&#232;te un oeil et si je retrouve la trace je te ferais parvenir le lien

Bon courage 

La route du savoir est plus longue que la muraille de Chine

cs_mesmed · Answer

le shift peut être désactiver, le bouton shift qui permet d'ouvrir la base en mode conception

Public Sub DésactiverMaj(ETAT As Boolean)
    Dim blnAutoriserMaj As Boolean

    ' Si blnAutoriserMaj vaut False, la touche [Maj] sera désactivée.
    ' Si blnAutoriserMaj vaut True, la touche [Maj] sera activée.
    blnAutoriserMaj = ETAT

    ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
    If blnAutoriserMaj Then
        MsgBox "La touche [Maj] est activée. Fermez la base et réouvrez-la pour tester."
    Else
        MsgBox "La touche [Maj] est désactivée. Fermez la base et réouvrez-la pour tester."
    End If
End Sub

Function ModifiePropr(chNomPropriété As String, varTypeProp As Variant, _
    varValeurProp As Variant) As Integer
    Dim bds As DAO.Database, prp As DAO.Property
    Const conErreurPropNonTrouvée = 3270

    Set bds = CurrentDb
    On Error GoTo Change_Err
    bds.Properties(chNomPropriété) = varValeurProp
    ModifiePropr = True

Change_Sortie:
Exit Function

Change_Err:
    If Err = conErreurPropNonTrouvée Then ' Propriété non trouvée.
        Set prp = bds.CreateProperty(chNomPropriété, varTypeProp, varValeurProp)
        bds.Properties.Append prp
        Resume Next
    Else
        ' Erreur inconnue.
        ModifiePropr = False
        Resume Change_Sortie
    End If
End Function

jamadjamad · Answer

j'ai besoin d'aide su niveau accesse

Verrouillage ACCESS

7 réponses

Discussions similaires