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

[أ / محمد صالح]

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

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

والصلاة والسلام على رسولنا الكريم

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

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

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

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

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

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

****************

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

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

////////////////////////

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

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

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

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

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

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

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

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

+++++++++++++++++

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

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

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

////////////////////////////////////////

وبناء على النقاشات الممتعة للإخوة الذين ظهرت معهم رسائل خطأ في بعض الأحيان

تم اختصار الكود أكثر مما هو عليه ليصبح سطرا واحداً

 

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

...........

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

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

MasAcessSecurity_mdb.rar

MasAcessSecurity2.rar

[naderwatfa]

كود رائع بإذن الله

بارك الله فيك أخي محمد

و كل سنة و انت طيب

[lordring]

رائع جدا بارك الله بك .. كود خفيف جدا وذو فاعلية رائعة ..

[أ / محمد صالح]

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

شكرا لمرورك الكريم

[أ / محمد صالح]

شكرا لك أخي lording

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

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

[ياسر الحافظ]

الاستاذ العزيز " محمــــــــــــــــد صالح "

انا لايحق لي مطلقا تقييم اعمالك ......... ولكن كلمة حق تقال " ابداع حقيقي ... وتميز "

صدقت من ملاحظتي انك تقوم بعمل اكواد مميزة جدا جدا

جزاك الله كل الخير

وفقك الله

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

ابو الحارث

[الصمت المتحدث]

حفظك الله ورعاك

نعم فضل أوفيسنا علينا كبير ولكن فضل أساتذنا أكبر

لولاك والأخ نارت وباقي المتمييزين لبقيت أسئلة عدة من دون اجابات

شكرا

[عبدالله المجرب]

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

[أ / محمد صالح]

الاستاذ العزيز " محمــــــــــــــــد صالح "

انا لايحق لي مطلقا تقييم اعمالك ......... ولكن كلمة حق تقال " ابداع حقيقي ... وتميز "

صدقت من ملاحظتي انك تقوم بعمل اكواد مميزة جدا جدا

جزاك الله كل الخير

وفقك الله

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

ابو الحارث

حفظك الله ورعاك

نعم فضل أوفيسنا علينا كبير ولكن فضل أساتذنا أكبر

لولاك والأخ نارت وباقي المتمييزين لبقيت أسئلة عدة من دون اجابات

شكرا

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

أشكركم أخوتي في الله

جعلني الله عند حسن ظنكم

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

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا

[alcasir]

اخي جربي الكود على اوفيس 2010 وما نفع

يطلب تفعيل المحتوى

[lordring]

<P>اخي جربي الكود على اوفيس 2010 وما نفع<BR>يطلب تفعيل المحتوى<BR> </P>

<P> </P>

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

تم تعديل نوفمبر 5, 2011 بواسطه lordring

[محمد يحياوي]

الاستاذ الفاضل "محمد صالح" بارك الله فيك و كل عام و انت بخير الفكرة الرائعة لكن عندي بعض الملاحظات ...

اولا الكود لا يعمل في في office2010 ثانيا الكود لا يعمل عندما يكون امان الماكرو مرتفعا

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

وننتظر ايجاد حل جذري لمشكلة امان الماكروا ... وفقك الله

[سعيد الجندي]

أنا مستخدم بالفعل office 2010 و شغال بدون أى مشاكل

والصور في هذا الرابط تم تصويرها من office 2010

http://www.officena.net/ib/index.php?showtopic=39133&view=findpost&p=216012

[أ / محمد صالح]

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

أخي الفاضل محمد يحياوي

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

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

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

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

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

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

......

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

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

لذك استعملت ملف رجستري يعمل قبل ملف الاكسل في ملف تنفيذي

كيف يتم استدعاء ملف الريجيستري ليعمل قبل ملف الإكسل بطريقة لايشعر بها المستخدم؟

وطبعاً يتم ذلك في أول مرة فقط وليس في كل مرة يتم فتح الملف فيها

[أ / محمد صالح]

أنا مستخدم بالفعل office 2010 و شغال بدون أى مشاكل

والصور في هذا الرابط تم تصويرها من office 2010

http://www.officena....ndpost&p=216012

شكرا لك أبا أحمد على مرورك الكريم

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

[محمد يحياوي]

الاخ الفاضل "محمد صالح" لاحظ الرابط قد يفيدنا ربط الموضوعين مع بعض

ملف تنفيذي

[قصي]

بارك الله فيك اخي محمد صالح

[أ / محمد صالح]

وفيك بارك اخي قصي

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

وبناء على النقاشات الممتعة للإخوة الذين ظهرت معهم رسائل خطأ في بعض الأحيان

تم اختصار الكود أكثر مما هو عليه ليصبح سطرا واحداً

...........

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

في المشاركة الأولى

[lordring]

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

http://www.officena....showtopic=39163

تم تعديل نوفمبر 7, 2011 بواسطه lordring

[أ / محمد صالح]

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

http://www.officena....showtopic=39163

طلباتك أخي الكريم

تم عمل اللازم

تجده هنا

http://www.officena.net/ib/index.php?showtopic=39163&view=findpost&p=216327

[احمد فضيله]

جزاكم الله كل خير

[محمد ايمن]

جزاك الله الجنة و كل خير

[shereen_eg_1]

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

[أ / محمد صالح]

شكرا لجميع الإخوة على المرور الكريم

والكلمات العطرة

[علي المصري]

هل هذا الكود مخصص لإصدارات أوفيس التي تحمل رقم اقل من 12 فقط أي انها لا تعمل مع اكسيس 2013 حيث رقمه( 15)

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