Discussion :

[electrosat03]

Salut,

J'ai une base de donnée sécurisée et scindée sur un réseau.

Je définis par code les menus qui doivent-être visible si c'est un utilisateur ou un admin.

Le problème est que si un utilisateur fait un preview d'un état, la barre de menu Apercu avant impression s'affiche et là, il y a des boutons qui ne devraient pas y avoir, ex : Fenêtre base de données, mode création, ...

Comment empécher cela, en sachant que l'admin à le droit de voir tout.

J'ai essayé par outils/demarrage, mais alors, l'admin ne les voient plus non plus.

Merci

[Domi2]

Bonjour,

Si tu as une version 2002 / 2003, tu as la possibilité de définir une barre de menus personnalisée pour les états.

Cela devrait résoudre ton problème.

Domi2

[electrosat03]

salut,

Oui, j'ai access 2003. Le problème, si je modifie la barre de menu du preview de l'état, l'admin aura aussi cette barre non?

Comment faire pour empécher l'utilisateur d'avoir accès aux barre de menu.

J'ai essayé par le code, j'enlève toutes les barre de menu si l'utilisateur n'est pas un admin et je met une barre de menu perso pour l'appli.

Mais si il fait un preview, il a la barre preview et peux donc avoir accès à la fenêtre base de données.

Merci pour ton aide

[Domi2]

Salut,

Mais si il fait un preview, il a la barre preview et peux donc avoir accès à la fenêtre base de données.

Ouach !

Pas testé, mais déjà, l'option Affich. la fen. de base de données devrait être décochée dans tes options de démarrage (c'est la moindre des choses).

Ensuite, c'est à toi de contrôler si les utilisateurs peuvent visualiser un état. A voir les options acPreview, par exemple.

Parti de là, tu crées une barre de menus personnalisée pour l'état avec tous tes menus.

Tu testes qui ouvre l'état en prévisualisation.

Et tu rajoutes du code :

Code :

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

CommandBars("mnuNomMenu").Controls("Fichier").Controls("Imprimer...").Enabled = True ' Ou False

Ce qui active ou non le menu.

Domi2

[electrosat03]

Re,

C'est décoché, mais si je fais un acpreview, j'ai le bouton base de données qui est accessible et donc la fenêtre s'ouvre.

J'avais mis ce code à l'ouverture du form Menu

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Function Démarrer()
    'Dim i As Integer
    Const DB_Boolean As Long = 1
    Dim i As Integer
    Dim regi As String
    ' les menus et les commandes de l'Admin
    If EstDansGroupe("SuperAdmins") Then
        DoCmd.SelectObject acTable, , True
        DoCmd.ShowToolbar "barre de menus", acToolbarYes 'Montre le menu "barre de menus"
        DoCmd.ShowToolbar "Base de données", acToolbarYes 'Montre le menu "Base de données"
        DoCmd.ShowToolbar "SudFidMenu", acToolbarNo 'Cache le menu "SudFid"
 
        'Autorise pas la touche Shift au prochain démarrage
        changeproperty "AllowBypassKey", DB_Boolean, True
 
        changeproperty "AllowToolbarChanges", DB_Boolean, True
        changeproperty "AllowBuiltinToolbars", DB_Boolean, True
        changeproperty "AllowSpecialKeys", DB_Boolean, True
        changeproperty "AllowFullMenus", DB_Boolean, True
        changeproperty "StartUpMenuBar", DB_Boolean, True
        changeproperty "StartUpShortCutMenuBar", DB_Boolean, True
        changeproperty "AllowShortCutMenus", DB_Boolean, True
        changeproperty "StartupShowDBWindow", DB_Boolean, True
        changeproperty "StartupShowStatusBar", DB_Boolean, True
    Else
    'Si utilisateur n'est pas un "Admin" alors on cache la fenêtre BD,
    ' les menus et les commandes de l'Admin
        'On cache la fenêtre BD
        DoCmd.SelectObject acTable, , True
        DoCmd.RunCommand acCmdWindowHide
        'N'autorise pas la touche Shift au prochain démarrage
        changeproperty "AllowBypassKey", DB_Boolean, False
 
        'Form caché pour le contrôle de l'inactivité
        DoCmd.OpenForm "F_CachéInactivité", , , , , acHidden
 
 
        'On Change les options de démarrage
        changeproperty "AllowToolbarChanges", DB_Boolean, False
        changeproperty "AllowBuiltinToolbars", DB_Boolean, False
        changeproperty "AllowSpecialKeys", DB_Boolean, False
        changeproperty "AllowFullMenus", DB_Boolean, False
        changeproperty "StartUpMenuBar", DB_Boolean, False
        changeproperty "StartUpShortCutMenuBar", DB_Boolean, False
        changeproperty "AllowShortCutMenus", DB_Boolean, False
        changeproperty "StartupShowDBWindow", DB_Boolean, False
        changeproperty "StartupShowStatusBar", DB_Boolean, False
        'Par sécurité, on recache les barres de menu
        DoCmd.ShowToolbar "barre de menus", acToolbarNo 'Cache le menu "barre de menus"
        DoCmd.ShowToolbar "base de données", acToolbarNo 'Cache le menu "Base de données"
        DoCmd.ShowToolbar "mode formulaire", acToolbarNo 'Cache le menu "mode formulaire"
        DoCmd.ShowToolbar "SudFidMenu", acToolbarYes 'Montre le menu sudfid
    End If
End Function

le problème, si un admin se connecte il a accès à tout.
Si c'est un user, on doit décocher dans la fenêtre démarrage.

Mais ca fonctionne si c'est admin mais pas si c'est user???
Merci

[Domi2]

Re,

Sorry, mais j'ai peur de ne pas pouvoir beaucoup t'aider, je ne procède pas de cette manière.

Parti de là, tu crées une barre de menus personnalisée pour l'état avec tous tes menus.

Je crée une barre de menu personnalisée spécifique pour chaque formulaire/état. Sous-entendu, avec les menus et sous-menu dont j'ai besoin. J'utilise indifférement des menus déjà défini dans Access, ou j'appelle des fonctions spécifiques que j'ai créee en renseignant la propriété Sur action

Et je les déclare depuis la propriété Barre de menus du formulaire/état.

C'est assez long à faire, mais il me semble que c'est la solution qui offre le plus de souplesse et de sécurité.

Domi2

[electrosat03]

OK, je vais essayer.

A+

[electrosat03]

Salut,

J'ai mis un menu perso à l'ouverture de mon appli si c'est un user.
Mais avec le clic droit sur la barre de menu, j'ai accès au menu contextuel ou je peux choisir Personnaliser.

Ce qui ne peux pas se faire, comment s'appelle ce menu et comment puis-je l'empécher.

Merci

[Domi2]

Salut,

Dans les options de démarrage, tu décoches Autoriser la modification des barres d'outils/menus.

Domi2

[electrosat03]

re,

Oui, je sais, mais ça autorise quand même de voir une barre d'outils sélectionnée dans la fenêtre personnaliser. Donc je peux placer la barre d'outils fenêtre de base de données et là ...

Le problème est que l'administrateur peut devoir utiliser l'appli sur le poste d'un user et lui, il doit avoir accès à tout.
Donc si je modifie les options de démarrage pour le user, elles le sont aussi pour l'admin.

A+

[Domi2]

Re,

Le problème est que l'administrateur peut devoir utiliser l'appli sur le poste d'un user et lui, il doit avoir accès à tout.
Donc si je modifie les options de démarrage pour le user, elles le sont aussi pour l'admin.

Oui. C'est pourquoi, dans ma barre de menu, je met toutes les commandes nécessaires.

Ensuite tu fais un test. Si "Utilisateur", tu inactives certaines options.

Code :

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

CommandBars("mnuNomMenu").Controls("Fichier").Controls("Imprimer...").Enabled = True ' Ou False

Sorry, mais j'ai pas mieux, si ce n'est construire ton menu complétement en VBA (ce qui revient plus ou moins au même).

Domi2