الشرح الكامل التفصيلي المصور لمعرفة نسخة الأكسيس وتخفيض الأمان برمجيا

[علي المصري]

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

 

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

 

بعد اذنك : اضفت التالي ليتماشى مع اوفيس 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)

 

 

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

 

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

 

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

 

شكرا

[Anasalsalam]

الف شكر للانسة زهرة 

ذادك الله علما و نورا و ايمانا

لا تبخلي علينا بالمزيد من العلم