Discussion :

[MakSLR]

Bonjour,

J'ai créer une base des données. Elle est utiliser par 4 personnes.
Je souhaite sécuriser mon travail pour évité la suppression ou modification.

J'ai consulter le tutoriel http://loufab.developpez.com/tutoriels/access/securite/ .

Et du coup je suis perdu. Je ne sais pas quoi faire ou par quoi commencer.

S'il vous plait un conseil !

[marot_r]

Bonjour.

Je souhaite sécuriser mon travail pour évité la suppression ou modification.

Peux-tu préciser ? Car à priori si tu partages tes données, il faudra bien que les gens puissent faire des modifications ou des suppressions, non ?.

A+

[MakSLR]

Bonjour.



Peux-tu préciser ? Car à priori si tu partages tes données, il faudra bien que les gens puissent faire des modifications ou des suppressions, non ?.

A+

Bonjour,

Oui bien sur, il faudra bien que les gens puissent faire des modifications.
Mais je ne veux pas qu'ils puissent accéder directement a mes Requêtes et Codes VBA.

J'ai pensé à un code:
Avant besoin de créer une nouvelle base de donner avec un formulaire. Puis activer apparition automatique d'un formulaire au démarrage.
Et utiliser ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Ouvrir une base d'Access
Call Shell("MsAccess" & "" & " D:\DossierTeste\Traitement.accdb" & "", acNormal)
'Quitter Access
DoCmd.Quit

Ça me permet de fermer l'Access et garder les formulaires active.
Mais j'ai des doutes sur son efficacité.
Une fois que je lance le code est ce que je vais pouvoir accéder a mes dossiers directement un jour

[marot_r]

Bonjour.

Le tutoriel ne s'applique pas aux bases 2007 et suivantes car M$ a supprimé le système de sécurité.
Dans les version 2007 et suivante, tu peux seulement cacher la fenêtre de Base de données et éventuellement les menus systèmes.
Passer par un Shell n'apporte rien au niveau de la sécurité.
Ici un post sur le sujet :

Show/Hide database window from code
http://access.mvps.org/access/general/gen0031.htm

Et personnellement, j'ai constaté que les utilisateurs n'allaient jamais dans les objets de la BD si on leur fourni un menu adéquat et qu'il y a une bonne gestion d'erreur dans le code.
Les seuls à aller fouiner sont d'autres informaticiens et une protection semblable se casse en 5 mn chrono donc je me contente de "fermer" le volet de navigation et de réduire les menus mais je ne verrouille pas l'accès aux objets.

ici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Compare Database
Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Sub FermerVoletNavigation()
    DoCmd.SelectObject acModule, , True
    DoCmd.Minimize
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub MinimiserRuban()
 
    If CommandBars("ribbon").Height > 0 Then
        CommandBars.ExecuteMso "MinimizeRibbon"
    End If
 
End Sub

A+

[MakSLR]

Bonjour.

Le tutoriel ne s'applique pas aux bases 2007 et suivantes car M$ a supprimé le système de sécurité.
Dans les version 2007 et suivante, tu peux seulement cacher la fenêtre de Base de données et éventuellement les menus systèmes.
Passer par un Shell n'apporte rien au niveau de la sécurité.
Ici un post sur le sujet :

Show/Hide database window from code
http://access.mvps.org/access/general/gen0031.htm

Et personnellement, j'ai constaté que les utilisateurs n'allaient jamais dans les objets de la BD si on leur fourni un menu adéquat et qu'il y a une bonne gestion d'erreur dans le code.
Les seuls à aller fouiner sont d'autres informaticiens et une protection semblable se casse en 5 mn chrono donc je me contente de "fermer" le volet de navigation et de réduire les menus mais je ne verrouille pas l'accès aux objets.

ici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Option Compare Database
Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Sub FermerVoletNavigation()
    DoCmd.SelectObject acModule, , True
    DoCmd.Minimize
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub MinimiserRuban()
 
    If CommandBars("ribbon").Height > 0 Then
        CommandBars.ExecuteMso "MinimizeRibbon"
    End If
 
End Sub

A+

Salut,

Je ne comprend pas où je doit mettre ces codes

[MakSLR]

Salut,

Je ne comprend pas où je doit mettre ces codes

C'est bon j'ai trouvé !!!
J'ai oublié l’existence des modules

Merci tes codes peuvent me servir