تغيير إعدادت الماكرو

[علي المصري]

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

 

لدي سؤال محيرني من فترة

 

وهو

 

هل يمكن تغيير إعدادات الماكرو تلقائيا مع بدى عمل قاعدة البيانات أم لا ؟

 

شكرا

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

السلام عليكم 

تابع هذا الرابط 

http://www.officena.net/ib/index.php?showtopic=39133

 

او 

 

http://www.officena.net/ib/index.php?showtopic=19075

[علي المصري]

شكرا لك استاذ عبدالله

 

تصفحت موضوع الاخت زهرة

 

وتمت الاستفادة منه

 

وقمت بعمل التالي

 

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

 

عمل ممتاز اختنا زهرة - بارك الله فيك

 

بعد اذنك : اضفت التالي ليتماشى مع اوفيس 2010  و  2013

 

ElseIf Version = "14.0" Then
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1)

 

ElseIf Version = "15.0" Then
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\15.0\Access\Security", "VBAWarnings", 1)

 

 

ولكن المشكلة تكمن في التالي

 

عند استخدام الكود يتم الاحتفاظ بوضع الامان منخفض دائما

 

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

 

شكرا