Discussion :

[electrosat03]

Bonjour à tous,

J'en profite que je suis en chômage forcé pour revoir un peu mon appli.
J'ai donc une appli qui suivant si on est admin ou user peu afficher les objets de la BD.
Je voudrais pouvoir cacher le noms de certaines requêtes, forms, etc même pour les admin afin qu'ils ne puissent pas ouvrir et modifier mes requêtes et forms par inadvertance, mais en laissant les requêtes qu'ils auraient créées visibles

Je ne sais pas si c'est possible, ou alors les empêcher de les modifier, en exécutant un code VBA au démarrage de l'appli.

Merci

[Zekraoui_Jakani]

Exploiter ceci:

Code :

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

1
2
Application.GetHiddenAttribute acQuery,"xyz"    'Pour savoir si l'objet est caché ou pas !
Application.SetHiddenAttribute acQuery,"xyz", True    'Pour cacher l'objet !

Mais un utilisateur averti peut trouver la faille; Il faut donc agrémenter le code d'un mot de passe solide.

[electrosat03]

Salut,

Exactement cela.

Merci

[EricDgn]

Bonjour,

Si vous donnez une version .accde de votre application, les utilisateurs ne pourront rien y modifier, sauf les requêtes. Ils leur est encore possible d'ajouter des tables et des requêtes, mais rien d'autre (qu'ils perdront s'ils font une "mise à jour" de votre application). Pour absolument éviter qu'ils modifient les requêtes il faut donc les mettre dans le code, soit au niveau des macros, soit sous forme SQL dans les contenus (RecordSource) des objets concernés. Les requêtes non enregistrées n'étant pas optimisées, cela fait sans doute perdre un peu en temps d'exécution, mais c'est souvent non perceptible.

Cordialement.

[electrosat03]

Re,

Je voudrais aller plus loin

Je voudrais par code vba pouvoir cocher ou décocher les cases qui se trouvent dans Fichier/Options/Base de données actives/Navigation/Options de navigation/Option d'affichage
les 2 cases qui sont : Afficher les objets masqués et Afficher les objets système

C'est pour automatiser tous cela quand je fais une màj de l'appli.

Merci

[electrosat03]

Salut EricDgn,

Mon appli est bien protégée pour les Users, ils n'ont pas accès aux Objets, l'appli fonctionne sans qu'ils aient à y toucher.
Le problème c'est pour le Boss qui veut pouvoir faire des requêtes comme il veut, dès lors je préfère protéger tous les Objets que j'ai créés en les masquant pour éviter qu'il n'efface ou modifie une requête ou form ou table.
De plus en faisant cela seul les Objets qu'il aura créé seront visible.

Merci

[EricDgn]

Bonjour,

Méthodes pour voir/gérer les options:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ShowHide()
    Dim blnHidden As Boolean
    Dim blnSystem As Boolean
    '--- voir la situation actuelle
    blnHidden = Application.GetOption("Show Hidden Objects")
    blnSystem = Application.GetOption("Show System Objects")
    Debug.Print "blnHidden: "; blnHidden, "blnSystem: "; blnSystem
    '--- true = afficher, false = masquer
    blnHidden = False
    blnSystem = False
    Application.SetOption "Show Hidden Objects", blnHidden
    Application.SetOption "Show System Objects", blnSystem
    Debug.Print "blnHidden: "; blnHidden, "blnSystem: "; blnSystem
End Sub

Bonne continuation.

[electrosat03]

C'est exactement ça
L'appli est plus claire sans tous les Objets.

Merci