اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

pass.rar

رابط هذا التعليق
شارك

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

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

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

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

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

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

Untitled.jpg

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

 

تم تعديل بواسطه سلمان الشهراني
  • Like 1
رابط هذا التعليق
شارك

12 دقائق مضت, سلمان الشهراني said:

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

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

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

 

 

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

  • Like 3
رابط هذا التعليق
شارك

اه فتح

 

9 دقائق مضت, سلمان الشهراني said:

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

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

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

  • Like 1
رابط هذا التعليق
شارك

1 دقيقه مضت, سلمان الشهراني said:

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

9 دقائق مضت, ابا جودى said:

اه فتح

 

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

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

مشالله عليك

  • Like 1
رابط هذا التعليق
شارك

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

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

docmd.opentable

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

 

  • Like 1
رابط هذا التعليق
شارك

25 دقائق مضت, رمهان said:

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

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

docmd.opentable

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

 

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

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

35 دقائق مضت, رمهان said:

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

docmd.opentable

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

لن تستطيع فتح الجدول وستظهر رسالة خطا تعذر العثور على الكائن لان الخاصية له هي الرقم (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

 

رابط هذا التعليق
شارك

2 دقائق مضت, محمد ايمن 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

 

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

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

رابط هذا التعليق
شارك

الان, محمد ايمن said:

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

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

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

رابط هذا التعليق
شارك

1 دقيقه مضت, محمد ايمن said:

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

pass-unprotected.rar

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

رابط هذا التعليق
شارك

49 دقائق مضت, ابا جودى said:

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

تمام واشكرك

وصلت لما اريد 

  • Like 1
رابط هذا التعليق
شارك

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

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

تحياتي

رابط هذا التعليق
شارك

12 دقائق مضت, رمهان said:

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

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

تحياتي

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

  • Like 1
رابط هذا التعليق
شارك

في ٨‏/١٠‏/٢٠١٦ at 14:56, سلمان الشهراني said:

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

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

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

 

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

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

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

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

 

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information