اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اداة تخفيض الامان


lordring

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

السلام عليكم

في المرفق اداة تقوم بتخفيض امان الاكسس ومن ضمنها لل 2010

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

وشكرا

open.rar

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

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

خيار برمجي ممتاز لأستاذتنا زهرة العبدالله

مع ضرورة حفظ حقوقها حسب طلبها في التطبيق



'*************** الحقوق البرمجية  ***************

'*  لا مـــانع من استخدام هذه الأكواد في البرامج *

'*  مع ضرورة الإشارة الى المبرجة زهــره العبدالله  *

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

'*********************************************

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

اخي الكريم

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

لايقوم بواجبه مع الاكسس 2010 حيث تبقى الشاشة الافتتاحية في وضع السكون لانها لاتتعرف على الاكسس الحالي ولاتقوم بتخفيضه

لذلك ارفقت هذه الاداة التي تقوم بتخفيض امان ال2007 وال2010

تحياتي

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

أخي الكريم

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


Private Sub Form_Load()

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

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

End If

End Sub

ومرفق مثال على ذلك بصيغة 2010 و 2003

يرجى تجربته على أكثر من إصدار

أنا جربته على 2010 فقط

ولكن بفضل الله الفكرة صحيحة

MasAccessSecurity.rar

MasAcessSecurity_mdb.rar

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

أخبرني بالضبط ماذا حدث معك بعد تحميل الملف

وبالتفصيل الممل

......

للعلم أرفقت مثال بصيغة mdb حتى يمكن لمستخدمي أوفيس 2003 وما قبلها تجربته

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

أخي الكريم

بعد أن قمت برفع الأمان

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

ماذا فعلت مع هذه الرسالة؟؟!!

......

الصواب أن تمكن الماكرو حتى يعمل ويقوم بخفض الأمان بعد ذلك

لاحظ النص الموجود في النموذج

بعد فتح النموذج لأول مرة

سيتم تخفيض أمان الأكسس

لجميع إصدارات الأوفيس

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

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

أعتقد أنك لم تمكن الملف من العمل في أول مرة

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

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

48545850y.jpg

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

63778029.jpg

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

75839515.jpg

......

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

غيّر اسم الملف ثم افتحه واختر تمكين المحتوى أو تمكين الماكروات لأول مرة فقط وسيغيرها الملف كما مر بالصور

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

اخي الكريم

يشترط لعمل الكود هو ظهور شريط تمكين المحتوى..

اي يجب ان تكون الخيارات كالتالي

05-11-2011%2001-08-28.jpg

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

الان الصورة واضحة ...

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

وشكرا لك

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

  • 4 years later...

ولكن من الأفضل وضع الكود التالي عند اغلاق البرنامج

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

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

End If

لعودة الأمان مرة اخرى

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

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

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



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

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

Important Information