تفضل جرب هذا سيتم اخفاء الجداول و الإستعلامات
Set db = CurrentDb
For Each tdf In db.TableDefs
If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then
Application.SetHiddenAttribute acTable, tdf.Name, True
End If
Next
For Each tdf In db.QueryDefs
If Not (tdf.Name Like "~sq*") Then
Application.SetHiddenAttribute acQuery, tdf.Name, True
End If
Next