• 0
mas123

أبسط كود لتخفيض أمان الأكسس برمجياً لجميع نسخ الأوفيس

سؤال

54645sd.gif

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

rffsdfsd.gif

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

أحببت أن أقدم هدية لأحبابي أعضاء وزوار منتدىات الفريق العربي للبرمجة

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

فتوكلت على الله

وقمت بعمل أبسط كود لتخفيض أمان الأكسس برمجياً لجميع إصدارات الأوفيس

حتى التي لم تصدر منها بعد

17418136.gif

ولقد تعلمت في هذا الصرح أن

المبرمج الحق الذي يؤدي ما هو مطلوب بأقل كود ممكن بل قل بأقل عدد لحروف الكود إن أمكن

65250983.gif

وكنت قد أصدرت قبل ذلك ملفات كثيرة صغيرة الحجم جداً وتؤدي مهام كبيرة جداً

سميت هذه السلسلة

ما خف وزنه وغلا ثمنه

كان منها على سبيل المثال

القرآن بالصوت والصورة

إرسال البريد من الأكسس مباشرة

أصغر كود لقراءة وتغيير دقة الشاشة

وغيرها الكثير

67997493wd7.gif

وأخيرا وليس بآخر

أتقدم بالشكر لكل من :

الأستاذة الكبيرة زهرة المنتدى

والأستاذ ابي ياسر

على كل ما قدموه في هذا المجال

546456.gif

لا تنس تقييم الموضوع

وترشيح صاحبه

ولا تنسوا أخاكم محمد صالح من صالح دعائكم

MasAcessSecurity_mdb.rar

تم تعديل بواسطه mas123
2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

26 إجابة على هذا السؤال .

  • 0

54645sd.gif

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

rffsdfsd.gif

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

أحببت أن أقدم هدية لأحبابي أعضاء وزوار منتدىات الفريق العربي للبرمجة

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

فتوكلت على الله

وقمت بعمل أبسط كود لتخفيض أمان الأكسس برمجياً لجميع إصدارات الأوفيس

حتى التي لم تصدر منها بعد

17418136.gif

ولقد تعلمت في هذا الصرح أن

المبرمج الحق الذي يؤدي ما هو مطلوب بأقل كود ممكن بل قل بأقل عدد لحروف الكود إن أمكن

65250983.gif

وكنت قد أصدرت قبل ذلك ملفات كثيرة صغيرة الحجم جداً وتؤدي مهام كبيرة جداً

سميت هذه السلسلة

ما خف وزنه وغلا ثمنه

كان منها على سبيل المثال

القرآن بالصوت والصورة

إرسال البريد من الأكسس مباشرة

أصغر كود لقراءة وتغيير دقة الشاشة

وغيرها الكثير

67997493wd7.gif

وأخيرا وليس بآخر

أتقدم بالشكر لكل من :

الأستاذة الكبيرة زهرة المنتدى

والأستاذ ابي ياسر

على كل ما قدموه في هذا المجال

546456.gif

لا تنس تقييم الموضوع

وترشيح صاحبه

ولا تنسوا أخاكم محمد صالح من صالح دعائكم

رائع بارك الله بيك اخي الكريم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي محمد صالح

مجهود رائع وتشكر عليه

وتقبل الله طاعتكم في هذا اليوم العظيم وهذا الشهر الكريم

+

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا لمرورك أخي lordring

وكل عام أنتم بخير

أخي الكريم malik2010

سعدت بمرورك

وفقنا الله وإياكم لكل ما يحب ويرضى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

كود اكثر من رائع اخي mas123

يعطيك الصحة والعافية

يعني بدن اضافة سجلات الريجستري في ملف مسار القاعدة...ولا حتى زحدة نمطية

شي رائع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

اسمحوا لي بهذا السؤال البسيط كوني مبتدئ

ما هو الغرض من تخفيض امان الاكسس؟

تحيااااتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عفوا أخى الكريم ولكن تظهر معى هذه الرسالة

أنا استخدم أوفيس 2003

post-234608-026848900 1320494899_thumb.j

تم تعديل بواسطه ymz258
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا لك أستاذنا بارك الله فيك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك اخي الكريم

رائع وتم التجربة بنجاح

الف شكر وان شاء الله في ميزان حسناتك

++

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

وفقنا الله وأياكم , وكل عام وأنتم بألف خير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تحياتي

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

بصراجة بعد التجربة على 2010 لم يتغير شيء...

اجرب على 2007 في جهاز اخر وارد لك ...

هناك شيء في الكود بحاجة لتعديل

تحياتي ومرة اخر الف شكر على جهودك الرائعة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ولا حتى 2007 ...

سابحث في السبب واحاول فهم الامر ...

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

تحياتي والف شكر مرة اخرى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

المشكلة هنا ... ان الكود مستخدم ... يعني لابد اولا من السماح بتنفيذ الكود ...

الدليل ,,, قمت بعكس الرقم من 1 الى 4 أي زيادة مستوى الامان ونجحت العملية ... أما ان يكون العكس ..فلم يعمل ...

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل : محمد صالح وجميع اعضاء المنتدى الكرام

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

وكل عام وانتم بخير

قمت بتجربة هديتكم على اكسيس 2007 ولم يتغير اي شيء في مستوى الأمان

حيث قمت بفتح برنامج الأكسيس فقط بدون اي قواعد بيانات وقمت بزيادة الأمان الى اعلى مستوى

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

اتوقع ان الخلل يكمن عند دالة الشرط IIF لأنه اثناء القراءه من الريجستري يحدث هناك تداخل بين الكتابه والقراءه عندما يتم فحص نسخة الأكسيس اذا كانت 12 > ( 97 - 2003 ) والا يعيد الكتابه للنسخ 2007 و 2010

وهنا يحدث التعارض .

بالتوفيق

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

وكل عام وجميع الإخوة والأخوات أعضاء فريقنا العربي للبرمجة بكل خير

أدعو الله أن نكون جميعاً في أحسن حال

ومن لم يحج هذا العام يرزقه الله حج بيته العظيم

وبعد

أشكر كل من شارك برد واستفسار لإثراء الموضوع

وأتوجه بالسؤال لآخي همام

هذا كود لقراءة قيمة في الريجيستري وإذا لم تكن هذه القيمة 1 ويعني مستوى منخفض من الأمان يجعلها الكود 1

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

مثله مثل الكود المقدم من الأخت زهرة في هذا الموضوع

http://www.arabteam2000-forum.com/index.php?showtopic=136983

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

أنا أستعمل أوفيس 2010

وهذا ما يحدث عندي بالصور

هذه صورة الإعدادات قبل تشغيل الملف

48545850y.jpg

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

63778029.jpg

وبعد تمكين المحتوى وعمل الملف هذه صورة الإعدادات

75839515.jpg

......

ومن الطبيعي عملية تمكين المحتوى لأول مرة

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

......

وبالنسبة لأختي الفاضلة وأستاذتي زهرة المنتدى وأم عهود

شرح الكود هو كالتالي وصوبي لي إن كنت مخطئاً

If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then

إذا كانت قمية قراءة المسار التالي من الريجيستري لا تساوي 1

"HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")

ويوجد في هذا المسار متغيران هما

نسخة الأوفيس application.version

والثاني هو مفتاح الريجيستري بعد المسار الثابت في كل إصدارات الأوفيس

"HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" 

ويكون اسم المفتاح الأخير level إذا كانت نسخة الأوفيس قبل 12 يعني 2003 وما قبلها

ويكون اسم المفتاح VBAWarnings إذا كانت نسخة الأوفيس أكبر من أو يساوي 12 يعني 2007 وما بعدها

وهذا ما هو موجود في الشرط الأخير في السطر

IIf(Application.Version < 12, "Level", "VBAWarnings")

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

فلو مثلا الأوفيس 2003 يكون المسار كالتالي

"HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security\Level"

ولأوفيس 2007 يكون المسار كالتالي

"HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\VBAWarnings"

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

وهذا ما يقوم به الكود قراءة قيمة هذا المسار بمتغيريه وإذا لم تكن 1 يقوم بكتابة القيمة 1 من نوع dword لنفس المسار

.....

وأعتقد أن هذا نفس ما سعت إليه الأستاذة زهرة في موضوعها المشار إليه

ولكن بأكواد طويلة جداً

وهنا فقط تم اختصار الكود

.....

وعذراً للإطالة

وكل عام أنتم جميعاً بكل خير

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عفوا أخى الكريم ولكن تظهر معى هذه الرسالة

أنا استخدم أوفيس 2003

أخي الكريم

كل عام أنتم بخير

تظهر هذه الرسالة حينما لا يكون في الريجيستري الخاص بك المسار المطلوب

والحل

توجه إلى أمان الماكرو وغيره إلى مرتفع ؛ ليتم إنشاء المسار أولاً

ثم اجعله متوسط

ثم استخدم الملف ووافق على تمكين الماكرو في اول مرة لعمل الملف

بعدها لن تزعجك هذه الرسالة

ولا حظ ما حدث معي في اكسس 2003

هذه صورة الإعدادات قبل تشغيل الملف

86607354.jpg

وهذه الرسائل التي تظهر قبل تشغيل الملف

يجب تمكين الماكرو بها في أول مرة

12306079.jpg

شاهد مستوى الأمان بعد تشغيل الملف

98596461.jpg

وشكرا لكل من شارك في هذا الموضوع لإثرائه

وكل عام أنتم بخير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وبناءً على ما تقدم مناقشته في المشاركات السابقة

يتم اختصار الكود أكثر مما هو عليه

بدلاً من قراءة قيمة الريجيستري في المسار المطلوب ثم تعديله إذا كانت قيمة غير 1 إلى 1

يتم إنشاء المسار إن لم يكن موجوداً وتعديله إلى 1 إذا كان موجوداً

حتى يكون بالفعل أبسط كود لتخفيض أمان الأكسس هو

CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD"

ومرفق الملف الموجود في المشاركة الأولى بعد التعديل

وبانتظار تعليقات الأساتذة ومن حدثت معهم مشاكل في تنفيذ الكود

وكل عام أنتم جميعاً بكل خير

.....

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

MasAcessSecurity2.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الأخ ymz

الأخ همام

الأخت زهرة

.....

هل ظلت المشكلة كما هي لديكم؟

برجاء إفادتنا حتى يتم التعاون في حلها

وكل عام والجميع بكل خير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

شكر للجهود المبذولة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الأخ ymz

الأخ همام

الأخت زهرة

.....

هل ظلت المشكلة كما هي لديكم؟

برجاء إفادتنا حتى يتم التعاون في حلها

وكل عام والجميع بكل خير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الحقيقة نعم ... لم يتغير شيء ....

واسف على التاخير .... انت تعرف عطلة العيد ...

تحياتي ,,,

طبعا هذا الكلام يخص كون مستوى الامان في اعلى قيمة وهي 4 اي تعطيل الكل ...

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

اظن ان الحالة الافتراضية للماكرو هي رقم 4...

تحياتي ...بارك الله فيك على مجهودك الرائع ...

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الحقيقة نعم ... لم يتغير شيء ....

واسف على التاخير .... انت تعرف عطلة العيد ...

تحياتي ,,,

طبعا هذا الكلام يخص كون مستوى الامان في اعلى قيمة وهي 4 اي تعطيل الكل ...

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

اظن ان الحالة الافتراضية للماكرو هي رقم 4...

تحياتي ...بارك الله فيك على مجهودك الرائع ...

أخي الكريم همام

كل عام أنتم بخير

هل جربت الكود الخاص بالأخت زهرة على المستوى الرابع وغيرّ شيئاً؟؟!!

بالطبع ...... لا .

بالنسبة للحالة الافتراضية للماكرو فهي التعطيل مع التنبيه و هي رقم 3 وليست 4

أما أن يغير المستخدم الأمان إلى المستوى 4 وهي تعطيل الكل مع عدم التنبيه فقد خسر الكثير مما يتم إنجازه بالكود

وأعتقد أنه لا يقوم بذلك أحد

والحمد لله على عمل الكود لديك في المستويين الثاني والثالث وهو المطلوب منه تأديته

عقبال من لم يعمل معه الكود المختصر

تحياتي للجميع

تم تعديل بواسطه mas123
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكور اخي الكريم ولكن لم يتم تخفيض الامان لدي علما ان الاوفيس لدي 2010 مع فائق الشكر والاحترام

عفوا اخي الكريم لقد قمت بمراجعة المشاركات واجريت تغيير على مستوى الامان عند 3 او 2 يعمل الكود مافي اي مشكلة ولكن عند 4 لايعمل والسبب عدم تمكين الكود عدن اعلام واعتقد الافتراضي للبرنامج هو 3 والشكر لك مرة ثانية

تم تعديل بواسطه حسين سعيد الابراهيمي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكور اخي الكريم ولكن لم يتم تخفيض الامان لدي علما ان الاوفيس لدي 2010 مع فائق الشكر والاحترام

اخي الكريم حسين

هل تابعت الموضوع من أوله؟؟!!

وهل عرفت أنه ينبغي تمكين الماكرو في الملف لأول مرة حتى يتم تنفيذ الكود الخاص بتخفيض الأمان؟؟!!

هل شاهدت الصور الخاصة بأوفيس 2010 في المشاركات؟؟!!

هل ....؟؟!!

هل ....؟؟!!

هل ....؟؟!!

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مبدع ياعزيزي ..

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

لأن عندي مستخدمين كُثُر ، وأرغب أن أضع سكريبت على السيرفر أو أوزعه عليهم ثم يقوم السكريبت من نفسه بالتعديل .

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .