J'ai crée une base de données que je vais bientôt mettre à disposition des utilisateurs. Cette base contient environ 1200 requettes.... J'aimerai toutes les masquer pour éviter toute mauvaise manipulation et comme je ne peux pas sélectionner plusieurs requettes à la fois, j'ai pris peur en me disant que je devais masquer les requetes une par une. Une seule solution raisonable, les masquer par code vba:
 
Dim req As QueryDef, db As Database
 
Set db = CurrentDb
 
For Each req In db.QueryDefs
     
    Application.SetHiddenAttribute acQuery, req.Name, True
     
Next req
 
Lorsque je lance la macro un message d'erreur me dit "Impossible de modifier les attributs des tables systèmes".
L'un d'entre vous peut-il m'éclairer?
 

Laissez tomber, je viens de trouver. Il suffit juste de rajouter en amont le pratique (mais à utiliser avec précautions) "On error resume next".
 
On Error Resume Next
 
Dim req As QueryDef, db As Database
 
Set db = CurrentDb
 
For Each req In db.QueryDefs
     
    Application.SetHiddenAttribute acQuery, req.Name, True
     
Next req

un petit [résolu] dans le titre sera le bienvenu