💥 مطلوب قواعد بيانات محمية بصيغة ACCDE ، أو قواعد بيانات تالفة 💥

[Foksh]

أخواني وأساتذتي ومعلمينا ( دون استثناء )

للضرورة القصوى لمن يرغب بالمساعدة ، مطلوب :-

1. قواعد بيانات مقفلة ومحمية تكون حصراً بصيغة ACCDE - لا حاجة لي بأي معلومات أو بيانات داخل الجداول ..
2. قواعد بيانات تالفة ( لا تفتح أساساً ) .

  الهدف هو تجربة لأداة جديدة قيد التجربة بعد أن تمت برمجتها من خلال آكسيس فقط  .

حيث وقعت في مشكلة كنت قد طرحتها في هذا الموضوع هنا . ما اضطرني لتطبيق نصيحة الحاجة أم الأختراع ، بعد البحث والتمعن لمدة 3 أيام متواصلة ..

[منتصر الانسي]

قمت بتحويل إحدى الأدوات التي رفعتها للمكتبة شوف إذا بتقدر تفكها

تحدي فتح ملف ACCDE.rar

[منتصر الانسي]

 

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

[Foksh]

15 دقائق مضت, منتصر الانسي said:

قمت بتحويل إحدى الأدوات التي رفعتها للمكتبة شوف إذا بتقدر تفكها

😅 اسم الملف يخوف هههههه

من قال اني داخل تحدي ، أعوذ بالله من غضب الله....

قاعد أجرب فكرة بسيطة على مستوى فهمي أستاذي منتصر .. 

[Foksh]

ومن باب السؤال أستاذ @منتصر الانسي ، ما إصدار الأوفيس الذي استخدمته ؟؟

من باب الإحاطة بمعلومة 😊

[منتصر الانسي]

16 دقائق مضت, Foksh said:

قاعد أجرب فكرة بسيطة على مستوى فهمي أستاذي منتصر .. 

انا حسبت الموضوع واحد من التحديات الخاصة بك 😅

11 دقائق مضت, Foksh said:

ومن باب السؤال أستاذ @منتصر الانسي ، ما إصدار الأوفيس الذي استخدمته ؟؟

365 الاصدار 64

[Foksh]

46 دقائق مضت, منتصر الانسي said:

انا حسبت الموضوع واحد من التحديات الخاصة بك 😅

😈

للعلم أستاذ @منتصر الانسي ، انا ما زلت أبني أداتي ، وقد توصلت حالياً للإصدارات 2016 - 2019 تقريباً .. وانت قد قفزت بي لآخر لإصدار ههههههههه

[Foksh]

مطلوب قاعدة بيانات آكسيس 2003 مقفلة MDE . ولا يهمني الداتا التي فيها أبداً ولا حتى ان تكون لمشروع كامل

إذا سمحتم 🤗

[Foksh]

18 ساعات مضت, منتصر الانسي said:

قمت بتحويل إحدى الأدوات التي رفعتها للمكتبة شوف إذا بتقدر تفكها

أستاذ @منتصر الانسي ، هذه تجربتي على استخراج النماذج بتصاميمها حرفياً ( دون أكواد VBA ) حالياً في المرحلة الأولى ..

 

Montaser.accdb

[منتصر الانسي]

منذ ساعه, Foksh said:

أستاذ @منتصر الانسي ، هذه تجربتي على استخراج النماذج بتصاميمها حرفياً ( دون أكواد VBA ) حالياً في المرحلة الأولى ..

بصراحة أعتبر هذه النتيجة بحد ذاتها إنجاز 

المثال السابق كنت قد وضعت كلمة سر للتعليمات البرمجية ولكن كيف ستكون النتيجة إذا ماجعلناها بدون تأمين؟

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

Mont_ProgressBar.rar

[منتصر الانسي]

18 ساعات مضت, Foksh said:

للعلم أستاذ @منتصر الانسي ، انا ما زلت أبني أداتي ، وقد توصلت حالياً للإصدارات 2016 - 2019 تقريباً .. وانت قد قفزت بي لآخر لإصدار ههههههههه

على فكرة إصدارات الأوفيس كانت تتغير كل سنة فمثلا 2003 كان الإصدار Office 11 وفي 2007 أصبح Office 12 وهكذا وحتى 2013 ولكن إبتداء من 2016 كله أصبح Office 16

وهذا مانجده في المراجع كما بالصورة

[Foksh]

15 دقائق مضت, منتصر الانسي said:

بصراحة أعتبر هذه النتيجة بحد ذاتها إنجاز 

بعض ما عندكم يا أستاذنا  الكبير ..

15 دقائق مضت, منتصر الانسي said:

المثال السابق كنت قد وضعت كلمة سر للتعليمات البرمجية ولكن كيف ستكون النتيجة إذا ماجعلناها بدون تأمين؟

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

أتمنى أن تكون قد غيرت به شيئاً مخفياً كي نميز بين المرفق السابق ، والتالي ..

Mont_ProgressBar_NoPassword.zip

 

8 دقائق مضت, منتصر الانسي said:

على فكرة إصدارات الأوفيس كانت تتغير كل سنة فمثلا 2003 كان الإصدار Office 11 وفي 2007 أصبح Office 12 وهكذا وحتى 2013 ولكن إبتداء من 2016 كله أصبح Office 16

بلا شك 👍

طبعاً المكتبات لا تعنيني نهائياً في فكرتي .. فأنا أقوم حالياً بجلب المكونات الى ملف ACCDB إصدارات حديثة = 2019 = نسخة الأوفيس التي لدي حالياً ..

1 ساعه مضت, Foksh said:

( دون أكواد VBA )

وبخصوص هذه النقطة ، جاري بناء مكتبة وخوارزمية كاملة ( مبنية على ملف VBA7.Dll ) تم كسر حمايته من إصدار أوفيس 2019 

[منتصر الانسي]

1 دقيقه مضت, Foksh said:

أتمنى أن تكون قد غيرت به شيئاً مخفياً كي نميز بين المرفق السابق ، والتالي ..

غيرت الإسم فقط 😅

وصلت لنفس النتيجة أي أنه في الحالتين لم يتم إسترجاع الوحدات النمطية

ولكن في المجمل فإن إسترجاع النماذج والتقارير شيئ ليس بالقليل وياريت تشاركنا بالطريقة

[Foksh]

الان, منتصر الانسي said:

غيرت الإسم فقط 😅

هههههههه انا قلت يمكن بعدل شي أو يضيف شي داخل الملف للتمييز بينهم 😛

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

ولكن في المجمل فإن إسترجاع النماذج والتقارير شيئ ليس بالقليل وياريت تشاركنا بالطريقة

إن شاء الله حال وصولي لنسبة ترضي غرور أفكاري 😁 ، لن أبخل عليكم بها 

[Foksh]

سؤال فضولي ..
هل من الممكن معرفة إصدار الأوفيس اللي تم حفظ ملف قاعدة البيانات من خلاله ؟؟

يعني آكسيس 2010 , 2016 , 365 ... الخ ؟؟؟؟

ولو بأي طريقة كانت 🤔 .

ولو محتاجة توضيح للمقصود بشكل أفضل ، لنفترض إن حد بعتلي قاعدة بيانات من جهازه ( صممها وتكتكها وعمل كل اللي نفسه من برمجة فيها .... 😉 ) ، وانا عندي اوفيس 2010 أو ما عنديش ، المهم اني اعرف إن منشأ الملف هذا هو اوفيس كذا 🤔 .

[Foksh]

في 6‏/4‏/2026 at 19:09, Foksh said:

سؤال فضولي ..

لم أجد إجابة شافية بالبحث في الإنترنت .. ولا حتى هنا ( فنحن جزء من عالم الإنترنت 😅 ) ..

على العموم .. رأيكم بهذه التجربة القيد التطوير يهمني . وستعرفون سبب سؤالي السابق ..

 

 

الملف الذي تمت التجربة عليه بعد الإستخراج ( بدون أكواد ) علشان ما حد ينصدم 

Montaser_UnlockedByFoksh.accdb

[at_aziz]

ماشاء الله تبارك الله 

مبدع كعادتك وفقك الله ونفع بك اخي @Foksh

[Foksh]

11 ساعات مضت, at_aziz said:

ماشاء الله تبارك الله 

مبدع كعادتك وفقك الله ونفع بك اخي @Foksh

بعض ما عندكم أخي عطالله ,, شكراً لمرورك الكريم ..

إن شاء الله الأداة في إصدارها الأول ستكون متاحة في موضوع جديد حال الإنتهاء من بعض التنسيقات في التصميم  ..

[منتصر الانسي]

في 6‏/4‏/2026 at 19:09, Foksh said:

سؤال فضولي ..
هل من الممكن معرفة إصدار الأوفيس اللي تم حفظ ملف قاعدة البيانات من خلاله ؟؟

للتوضيح هل تقصد الإصدار الذي تم إنشاء التطبيق فيه أم الإصدار الخاص بالمستخدم؟

فمعرفة الإصدار الذي تم إنشاء التطبيق فيه لا أرى أي حاجة إلى معرفته فما الذي سيفرق سواء عرفنا أم لم نعرف إصدار الإنشاء؟

[Foksh]

13 دقائق مضت, منتصر الانسي said:

الإصدار الذي تم إنشاء التطبيق فيه

فعلاً هو المقصود بعينه ..

السبب لغاية في نفسي كإضافة لفكرتي التي أعمل عليها 😅

[منتصر الانسي]

27 دقائق مضت, Foksh said:

السبب لغاية في نفسي كإضافة لفكرتي التي أعمل عليها 😅

ولكن مالغاية من هذا ؟؟؟

في كل الاحوال فنحن يمكننا معرفة إصدار (قاعدة البيانات فقط) عن طريق الأمر

CurrentProject.FileFormat

وعندها يمكننا التفريق بينها بواسطة عبارة Select التالية

    Select Case CurrentProject.FileFormat
        Case acFileFormatAccess2
            dbVersion = "Microsoft Access 2.0"
        Case acFileFormatAccess95
            dbVersion = "Microsoft Access 95"
        Case acFileFormatAccess97
            dbVersion = "Microsoft Access 97"
        Case acFileFormatAccess2000
            dbVersion = "Microsoft Access 2000"
        Case acFileFormatAccess2002
            dbVersion = "Microsoft Access 2002 - 2003"
        Case acFileFormatAccess2007
            dbVersion = "Microsoft Access 2007 - 2016"
        Case Else
            dbVersion = "إصدار غير معروف"
    End Select

ولمعرفة إصدار أوفيس (الحالي) يمكن إستخدام الامر

Application.Version

ونفرق بينها بعبارة Select التالية

    Select Case Application.Version
        Case 16
            officeVersion = "Office 2016 / 2019 / 2021 / Microsoft 365"
        Case 15
            officeVersion = "Office 2013"
        Case 14
            officeVersion = "Office 2010"
        Case 12
            officeVersion = "Office 2007"
        Case 11
            officeVersion = "Office 2003"
        Case Else
            officeVersion = "إصدار غير معروف"
    End Select

لا أدري إذا ما ستساعدك هذه المعلومات للوصول للنتيجة المطلوبة