Empecher/Autoriser l'acces au code source.

**Jazz_** · 13/10/2010, 11h49

Bonjour,

je travaille actuellement sur une base de donnée contenant des formulaire, cette base de donnée seras partagée, et certain utilisateurs aurons plus de droits que d'autres. j'aimerais empecher les failles de securité, et interdire par exemple l'acces au code avec le raccourci clavier alt + F11. Si vous songez a d'autres failles et comment les combler, je suis tout ouie

J'ai déjà enlevé les barres de menu , empeché les clic droits et enlevé la petite fenetre de la base de donnée.

Merci d'avance !

**marot_r** · 13/10/2010, 15h26

Pourquoi ne déploirais-tu pas un MDE ? Comme cela le code ne serait même pas dans la BD.

Mon expérience personnelle m'a permis de constater que les utilisateurs sont plus intéressés par le fait que l'application réponde à leur besoin que d'accéder directement à tes objets.

Peut-être devrais-tu évaluer le temps que tu passes à verrouiller ton application et les contrainte que cela te pose par rapport au risque que représente tes utilisateurs.

Pour ce qui est des fuites de données n'oublie pas que si tu as une architecture Front-End / Back-end le Back-end, donc tes données, est quasiment accessible par n'importe quelle vrai Access installé sur ton réseau.

A+

**Jazz_** · 13/10/2010, 15h30

Bonjour,

Merci de ta reponse .

Un MDE ... un Mode d'Emploi ?

**marot_r** · 13/10/2010, 16h54

Pardon, un .mde est une base de données qui ne contient plus que les objets qui ne sont pas du code.

Je pense qu'en access 97 c'est dans le menu Outils que tu vas trouver 'créer un MDE'.

Il est impératif que ta BD complile avant que tu puisses créer un MDE. (En mode design de code, menu débug, compiler).

Attention toute fois, un .mde ne se comporte pas toujours exactement comme un .mbd, c-à-d que certaines choses marchent dans un mdb mais pa dans un mde, mais cela reste un événement.

Invité · 13/10/2010, 17h43

Bonjour

Attention de bien garder une copie d'un mdb, car l'opération inverse n'est pas possible.

Philippe

**Jazz_** · 14/10/2010, 11h18

Bonjour,

Merci de vos réposes.
Je ne crois pas que cela soit ma solution, car du coup ( si j'ai bien compris )cela couperais l'accès au code source a tout les utilisateurs, moi ce que j'aimerais c'est que l'accès au code source soit autorisé pour certains utilisateurs et interdit à d'autres.

Il n'y a pas un moyen de de dire que l'on refuse juste l'activation de Alt + F11 ?

Lorsque l'on vas dans outils/démarrage je vois une case a cocher "Utiliser les touches spéciales d'accès" lorsqu'elle est décochée au démarrage du .mdb alt + F11 est inhibé il dois donc y avoir un moyen de l'inhiber/désinhiber par le code VB non ?

**marot_r** · 14/10/2010, 14h46

J'ai trouvé une rubrique "Définir les propriétés de démarrage à partir de Visual Basic" dans l'aide de A2000 qui parle de ce sujet.

Si elle existe dans celui de A97 je pense que cela devrait répondre à l'ensemble des questions.

A+

**marot_r** · 14/10/2010, 14h50

Voici le code de l'exemple fourni par M$

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub ParamProprDémarrage()
    Const DB_Text As Long = 10
    Const DB_Boolean As Long = 1
 
    ModifiePropr "StartupForm", DB_Text, "Clients"
    ModifiePropr "StartupShowDBWindow", DB_Boolean, False
    ModifiePropr "StartupShowStatusBar", DB_Boolean, False
    ModifiePropr "AllowBuiltinToolbars", DB_Boolean, False
    ModifiePropr "AllowFullMenus", DB_Boolean, True
    ModifiePropr "AllowBreakIntoCode", DB_Boolean, False
    ModifiePropr "AllowSpecialKeys", DB_Boolean, True
    ModifiePropr "AllowBypassKey", DB_Boolean, True
End Sub
 
Function ModifiePropr(chNomPropriété As String, varTypeProp As Variant, varValeurProp As Variant) As Integer
    Dim bds As Object, prp As Variant
    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

**Jazz_** · 14/10/2010, 15h25

Merci de la réponse, ca marche, mais ca ne fonctionne que pour le prochain démarrage. (Et pas pour le process courant)

j'ai cherché la Faq et j'ai rien trouvé, une autre idée ?

**Jazz_** · 15/10/2010, 15h20

Bonjour,

Ca fait un moment un moment que je cherche et je ne trouve rien, quelqu'un à t'il une idée ?

Je reformule ce que je cherche,

je cherche un moyen d'activer/desactiver les Specials Keys sans avoir à redemarer.

La solution trouvée pour le moment par marot_r n'agit que pour la prochaine foi que le programme est lancé.

Merci d'avance !

**ClaudeLELOUP** · 15/10/2010, 16h01

Bonjour,

ne peux-tu tester à l'ouverture de la base (dans macro autoexec) s'il s'agit d'un utilisateur privilégié : ouvrir normalement. Si non exécuter ce que te proposait marot_r ?

**Jazz_** · 15/10/2010, 16h08

Bonjour,

Merci de ta reponsse,

Et bien en fait pour tester la nature de l'utilisateur j'utilise un formulaire de login qui vas chercher les information sur ses privileges dans une table d'users. donc a ce moment la, le mdb est dejas ouverte :/

**ClaudeLELOUP** · 15/10/2010, 16h16

Fais donc l'inverse.
Ferme a priori pour tous et permet l'accès aux privilégiés ... s'ils le demandent.

**Jazz_** · 15/10/2010, 16h27

Okey voila ce que je vais faire, l'interdire a tout le monde. Et créer un bouton (visible uniquement par les privilegié) qui ouvre la fenetre vba. du coup on utilise pas les specialkeys.

Maintenant, il y a t'il un code VBA pour ouvrir la fenetre de code VBA ?

**ClaudeLELOUP** · 16/10/2010, 07h34

Bonjour,
Je l'ignore.
Mais, dès que tu sais qu'il s'agit d'un privilégié, ne peux-tu pas utiliser la technique de marot_r pour rétablir la possibilité du raccourci ctrl + G ?