ماهو كود اخفاء الجداول رجاءا

[زهرة النرجس]

اخواني الاعزاء

لدي قاعدة بيانات وارغب في اخفاء الجدوال عن طريق كود حتى لا يتم التلاعب بها

ولكم جزيل الشكر

[ابو ياسر]

الأخت زهرة تحية طيبة وبعد :
هذه أول مشاركة لي جئت وعندي مشكلة أريد لها حلا سأعرضها بعد هذه المشاركة تفضلي هذا الكود :

Private Sub إخفاء_مع_عدم_إظهارها_بالخيارات_Click()
Dim db As Database
Dim obj As AccessObject, dbs As Object
Dim tdf As TableDef

Set dbs = Application.CurrentData
Set db = CurrentDb

For Each obj In dbs.AllTables
Set tdf = db.TableDefs(obj.Name)
If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then
tdf.Attributes = tdf.Attributes + dbHiddenObject
End If
Next

Set tbl = Nothing
db.Close
Set db = Nothing
End Sub



Next tdf
Set dbs = Nothing
End Sub

[m_orouk]

و اين يتم وضع هذا الكود

[أبا عمر]

يُنقل 

............