protéger la base

La seule façon de protéger ta base et de créer une base
compilée en fichier .mde

Outils / utilitaire de base de données / créer un fichier
MDE.

Ce qui va avoir pour effet d'interdire la modif dans
l'ensemble de la base.

A+ Jean.

Bonjour,

Un fichier .mde ne protège que formulaires, etats et
modules. Les tables et requêtes restent accessibles.
Les masquer reste assez illusoire, çà ne tient pas longtemps.
Reste la sécurité utilisateur ...

Cordialement,

jean

-----Message d'origine-----
Bonjour,

je voudrais permettre à tt le monde d'utiliser ma base
access sans avoir à saisir de mot de passe en l'ouvrant
mais en empêchant ld'édition en modification des tables
formulaires et états. Est-ce possible ?

merci

_____________________
[AKZ]
.

moi je decoche dans les options de demarrage (outil
demarrage)tout, apres avoir copier ma base de donnees
ensuite, j'empeche d'utiliser la touche shift pour acceder
au menu en utilisant le bypass dans le code (voir aide sur
le bypass qui cree une propriete bypass que l'on peut
mettre a vrai ou faux
et je cree un mde.
personne ne peut ouvrir ma base et je ne protege jamais
rien.
voici le code de la fct bypass en access 2000 ou xp ou 2002
pas 97
Sub SetBypassProperty()
On Error GoTo HandleErr
AddProperty "AllowBypassKey", False
ExitHere:
Exit Sub

' Bloc de gestion d'erreurs ajouté par le complément de
gestionnaire d'erreurs. NE PAS MODIFIER ce bloc de code.
' Dernière mise à jour du gestionnaire d'erreurs
automatique le 05-28-2001 14:04:07 'Gestionnaire
d'erreurs:$$D=05-28-2001 'Gestionnaire
d'erreurs:$$T=14:04:07
HandleErr:
Select Case err.Number
Case Else
MsgBox "Erreur " & err.Number & ": " &
err.Description,
vbCritical, "bybass.SetBypassProperty" 'Gestionnaire
d'erreurs:$$N=bybass.SetBypassProperty
End Select
' Fin du bloc du traitement d'erreurs.
End Sub
Sub AddProperty(strPropName As String, arPropValue As
Variant)
' Ajoute des propriétés personnalisées à la collection
' AccessObjectProperties associée à un objet
AccessObject.
Dim I As Integer
For I = 0 To CurrentProject.Properties.Count - 1
Debug.Print CurrentProject.Properties.Item(I).Name
Next
On Error GoTo err1

CurrentProject.Properties.Add "AllowBypassKey", 0


err1:
Resume Next
End Sub

Function ChangePropertyvrai()
On Error GoTo HandleErr
CurrentProject.Properties.Item("AllowBypassKey") = -1
ExitHere:
Exit Function

' Bloc de gestion d'erreurs ajouté par le complément de
gestionnaire d'erreurs. NE PAS MODIFIER ce bloc de code.
' Dernière mise à jour du gestionnaire d'erreurs
automatique le 05-28-2001 14:04:07 'Gestionnaire
d'erreurs:$$D=05-28-2001 'Gestionnaire
d'erreurs:$$T=14:04:07
HandleErr:
Select Case err.Number
Case Else
MsgBox "Erreur " & err.Number & ": " &
err.Description,
vbCritical, "bybass.ChangePropertyvrai" 'Gestionnaire
d'erreurs:$$N=bybass.ChangePropertyvrai
End Select
' Fin du bloc du traitement d'erreurs.
End Function

Function ChangePropertyfaux()
On Error GoTo HandleErr
CurrentProject.Properties.Item("AllowBypassKey") = 0
ExitHere:
Exit Function

' Bloc de gestion d'erreurs ajouté par le complément de
gestionnaire d'erreurs. NE PAS MODIFIER ce bloc de code.
' Dernière mise à jour du gestionnaire d'erreurs
automatique le 05-28-2001 14:04:07 'Gestionnaire
d'erreurs:$$D=05-28-2001 'Gestionnaire
d'erreurs:$$T=14:04:07
HandleErr:
Select Case err.Number
Case Else
MsgBox "Erreur " & err.Number & ": " &
err.Description,
vbCritical, "bybass.ChangePropertyfaux" 'Gestionnaire
d'erreurs:$$N=bybass.ChangePropertyfaux
End Select
' Fin du bloc du traitement d'erreurs.
End Function

-----Message d'origine-----
Bonjour,

je voudrais permettre à tt le monde d'utiliser ma base
access sans avoir à saisir de mot de passe en l'ouvrant
mais en empêchant ld'édition en modification des tables
formulaires et états. Est-ce possible ?

merci

_____________________
[AKZ]
.