تجربه على حماية قاعدة بيانات اتمنى التفاعل

[سلمان الشهراني]

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

عرضتها لكي اشوف هل هذه الحمايه كافيه وهل احد يستطيع فتحها بسهوه ام بصعوبه ام لا احد يستطيع

اتمنى من يستطيع فتح القاعده ويظهر الجداول ابلاغي وشكرا للجميع

pass.rar

[ابوخليل]

هلا اخوي سلمان

القاعدة لا تحتوي الا على جداول  النظام   الاصلية واخرى محولة شاهد الصورة

وازيدك من الشعر بيت  الباسوورد الخاص بمحرر الفيجوال =  Z51

وهذا لا يعني ان حمايتك سهلة  ولكن  لا يوجد حماية مطلقة

وجداول اكسس غالبا  لا تملك مقومات الحماية

انظر هنا يمكن تحقيق بعض الحماية بشرط التصميم المناسب

[سلمان الشهراني]

هلا اخ ابو خليل

القاعده تحتوي على جدول يالغالي

ورقم محرر الفجول غير صحيح وجرب رقمك هل يفتح محرر الفجول انا حاط رقم ليس بالذي ذكرته

 

 

تم تعديل أكتوبر 8, 2016 بواسطه سلمان الشهراني

[ابو جودي]

  في 8‏/10‏/2016 at 11:56, سلمان الشهراني said:

هلا اخ ابو خليل

القاعده تحتوي على جدول يالغالي

ورقم محرر الفجول غير صحيح وجرب رقمك هل يفتح محرر الفجول انا حاط رقم ليس بالذي ذكرته

 

 

Expand  

فعلا فى جدول باسم   tab1
لكن انا لازلت احاول اظهاره او استخراج المعلومات منه
الباسورد على vba كان بالاسكى كود تقريبا

[سلمان الشهراني]

صحيح مشاء الله عليك

طيب  هل فتح معاك محرر الفجول

[ابو جودي]

اه فتح

 

  في 8‏/10‏/2016 at 12:37, سلمان الشهراني said:

صحيح مشاء الله عليك

طيب  هل فتح معاك محرر الفجول

Expand  

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

[سلمان الشهراني]

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

[محمد ايمن]

استخدمت جميع البرامج لاظهار باسوورد قاعدة البيانات لكنها لم تظهر !!!!!!!!!!!!!!!!!!!!!!

يعني لازلت في الشوط الاول

تم تعديل أكتوبر 8, 2016 بواسطه محمد ايمن

[ابو جودي]

  في 8‏/10‏/2016 at 12:48, سلمان الشهراني said:

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

Expand  

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

من وجهة نظرى المتواضعة ان ما هم المبرمج ليس اخفاء الجداول او البيانات او حتى تشفيرها بداخله 
لكن يحتاج لحماية الاكواد التى اخذت منه وقتا وجهدا وبحثا مضنيا
لذلك افضل ما توصلت اليه وذلك بناء على راى الاساتذة الكرام الذين نتعلم منهم
فصل القاعدة الى جزئين
جزء الجداول  وجزء لباقى الكائنات
والجزء الخاص بباقى الكائنات يمكنك تحويله وتشفيرة الى mde او accde
على الرغم من اننى قرات ان هناك من يقدر على فكه ولكن قليل جدا والله اعلم

ولذلك يبقى قول الله تعال "وفوق كل زى علم عليم"
 

[سلمان الشهراني]

  في 8‏/10‏/2016 at 12:45, ابا جودى said:

اه فتح

 

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

Expand  

خلاص انت اظهرت الجدول هوه واحد فقط ولايوجد فيه اي بيانات

مشالله عليك

[رمهان]

ماشاء الله عليك ابا جودي

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

docmd.opentable

جرب لاني اريد ان اصل لحاجة في بالي

 

[محمد ايمن]

تحية طيبة اخي الكريم

انت عدلت خاصية الجدول الى الرقم 1 وبذلك لم يظهر عند عرض الجدول المخفية و جداول النظام

[ابو جودي]

  في 8‏/10‏/2016 at 13:24, رمهان said:

ماشاء الله عليك ابا جودي

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

docmd.opentable

جرب لاني اريد ان اصل لحاجة في بالي

 

Expand  

حاولت الفتح فعلا بالامر ده ولم استتطع فتحه

تم تعديل أكتوبر 8, 2016 بواسطه ابا جودى

[محمد ايمن]

  في 8‏/10‏/2016 at 13:24, رمهان said:

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

docmd.opentable

جرب لاني اريد ان اصل لحاجة في بالي

Expand  

لن تستطيع فتح الجدول وستظهر رسالة خطا تعذر العثور على الكائن لان الخاصية له هي الرقم (1) ( لا اعلم ماذا يعني هذا الرقم)

استخدم هذا الكود لتعديل خاصية الجدول الى الرقم (0) ثم سيظهر الجدول وتستطيع فتحه و تعديل تصميمه كما ترغب

Dim aa As TableDef
Dim dd As dao.Database
Set dd = CurrentDb

For Each aa In dd.TableDefs
If aa.Name = "tab1" Then
aa.Attributes = 1
End If
Next

 

[ابو جودي]

  في 8‏/10‏/2016 at 14:02, محمد ايمن said:

لن تستطيع فتح الجدول وستظهر رسالة خطا تعذر العثور على الكائن لان الخاصية له هي الرقم (1) ( لا اعلم ماذا يعني هذا الرقم)

استخدم هذا الكود لتعديل خاصية الجدول الى الرقم (0) ثم سيظهر الجدول وتستطيع فتحه و تعديل تصميمه كما ترغب

Dim aa As TableDef
Dim dd As dao.Database
Set dd = CurrentDb

For Each aa In dd.TableDefs
If aa.Name = "tab1" Then
aa.Attributes = 1
End If
Next

 

Expand  

واين يوضع الكود ؟
 

للعلم وضعته على زر امر اعطى خطأ ولم بظهر الجدول

[محمد ايمن]

انشء نموذج وضع فيه زر امر و ضع هذا الكود فيه

بعد تنفيذ الكود اغلق النموذج و سيظهر الجدول

تم تعديل أكتوبر 8, 2016 بواسطه محمد ايمن

[ابو جودي]

  في 8‏/10‏/2016 at 14:07, محمد ايمن said:

انشء نموذج وضع فيه زر امر و ضع هذا الكود فيه

بعذ تنفيذ الكود اغلق النموذج و سيظهر الجدول

Expand  

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

[محمد ايمن]

تفضل اخي الكريم

pass-unprotected.rar

[ابو جودي]

  في 8‏/10‏/2016 at 14:27, محمد ايمن said:

تفضل اخي الكريم

pass-unprotected.rarFetching info...

Expand  

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

[رمهان]

  في 8‏/10‏/2016 at 13:49, ابا جودى said:

حاولت الفتح فعلا بالامر ده ولم استتطع فتحه

Expand  

تمام واشكرك

وصلت لما اريد 

[ابو جودي]

  في 8‏/10‏/2016 at 14:40, رمهان said:

تمام واشكرك

وصلت لما اريد 

Expand  

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

[رمهان]

العفو استاذ ابو جودي

انا وصلت الى ان الامر يتطلب ان يكون الجدول ظاهر في نافيقيشن بان ( نافذة الكائنات )

تحياتي

[ابو جودي]

  في 9‏/10‏/2016 at 18:55, رمهان said:

العفو ابو جودي

انا وصلت الى ان الامر يتطلب ان يكون الجدول ظاهر في نافيقيشن بان ( نافذة الكائنات )

تحياتي

Expand  

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

[ابوخليل]

  في 8‏/10‏/2016 at 11:56, سلمان الشهراني said:

هلا اخ ابو خليل

القاعده تحتوي على جدول يالغالي

ورقم محرر الفجول غير صحيح وجرب رقمك هل يفتح محرر الفجول انا حاط رقم ليس بالذي ذكرته

 

Expand  

اخي سلمان الله يحفظك ، انا فحصت على السريع 

ثم انك  اعلنت انها تحتوي على جدول يعني اعطيت نصف الاجابة ،  بغيبة مني 

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

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