ساعدونى كيف امنع الجداول من الاسترداد

[خالد عبد المنعم]

ساعدونى كيف امنع الجداول من الاسترداد

لعدم اخذ المعلومات لان هذه البيانات على جهاز واحد و يوجد مشاركه بينى و بين زملائى

[ظل السراب]

السلام عليكم ورحمة الله وبركاته

يمكن حماية ملف البيانات بكلمة مرور

والله اعلم

والسلام عليكم ورحمة الله وبركاته

[التقني]

السلام عليكم ورحمة الله وبركاته،،

بعد اذن أخي أبو طيف

يمكنك عزيزي admiral حماية الجداول من الاستيراد بالطريقة التالية :

أ- اخفاء الجداول من خلال كلمة سر .

ب- منع الوصول الى الوحدات النمطية أيضا من خلال كلمة سر .

ج- بما انه لن يمكن فتح الوحدات النمطية اذا لن يمكن التعرف على كلمة سر اظهار الجداول

واليك طريقة اخفاء أو اظهار الجداول وجدتها في أحد الأمثلة المخزنة في جهازي وهي تعود الى أخينا عبدالمانع حفظه الله .

أولا / اخفاء الجداول:

1-انشئ زر أمر بإسم A

2-ضع الكود التالي في حدث عند النقر للزر A :

Private Sub a_Click()
   Dim A, B
   A = "كلمة السر"
   B = "أدخل كلمة السر لإخفاء الجداول "
   If InputBox(B,A) = "12345" Then
  Else
       MsgBox "عفوا لا يمكن اخفاء الجداول", vbOKOnly, "خطأ"
       DoCmd.Quit

   End If
CurrentDb.TableDefs("tblName").Attributes = dbHiddenObject

End Sub

1-انشئ زر أمر بإسم B 2-ضع الكود التالي في حدث عند النقر للزر B :

Private Sub B_Click()
   Dim C, D
   C = "كلمة السر"
   D = "لإظهار الجداول أدخل كلمة السر"
   If InputBox(D, C) = "12345" Then
  Else
       MsgBox "عفوا .. لا يمكن اظهار الجداول", vbOKOnly, "خطأ"
       DoCmd.Quit

   End If
CurrentDb.TableDefs("tblName").Attributes = 0

End Sub

مع ملاحظة أن tblName هو اسم الجدول المراد اخفاؤه/اظهاره

[خالد عبد المنعم]

شكرا لك ابو طيف و اخى التقنى على ردودكم المبدعه و جزاكم الله خيرا سوف انفذ هذة العمليه و سوف ارسل لكم عن مدى صلاحيتها

و زادك الله علما و معرفه

[خالد عبد المنعم]

بعد اذن اخى التقنى اضيف شىء بسيط لانى عند عمل الكود عند النقر على زر امر A لا زال يظهر الجدول

فقمت بتعديل السطر الاخير فيه و هو

CurrentDb.TableDefs("tblName").Attributes = dbHiddenObject

فغيرت = dbhiddenobject الى = 1

و بذلك تم اخفاء الجدول

فهل يوجد كود لاخفاء الاستعلامات و النماذج و الماكرو

فاذا كان هذا موجود يبقى هذا من ضمن الحمايه و يكون من الصعب اختراقه لاى شخص لا يدرى عن الاكسيس شىء

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

فطريقتى كانت تعديل الكود

CurrentDb.TableDefs("tblName").Attributes = dbHiddenObject

الى

CurrentDb.QuireDefs("tblName").Attributes = dbHiddenObject

و لكن لم تفلح معى فاذا كان يوجد كود ارجو من سيادتكم معرفتنا به

و اخيرا اشكرك كثيرا على هذا الكود

تم تعديل فبراير 9, 2006 بواسطه admiral