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

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 


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

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

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

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

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

شكرا لك أخي lording

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

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

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

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

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

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

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

وفقك الله

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

ابو الحارث

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

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

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

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

شكرا

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

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

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

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

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

وفقك الله

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

ابو الحارث

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

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

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

شكرا

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

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

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

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

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

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

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

<P> </P>

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

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

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

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

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

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

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

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

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

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

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

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

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

48545850y.jpg

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

63778029.jpg

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

75839515.jpg

......

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

...........

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

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

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

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

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

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

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

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

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

تم عمل اللازم

تجده هنا

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

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

  • 5 months later...
  • 3 years later...

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

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

  • Like 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"
رابط هذا التعليق
شارك

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.

×
×
  • اضف...

Important Information