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

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

شكرا لمتابعتكم أستاذ علي المصري

ولكن

الكود يعمل على جميع الإصدارات

حيث أن الجزء الخاص ب Application.Version يقوم بجلب رقم الإصدار الحالي للأكسس

ثم الجزء التالي 

IIf(Application.Version < 12, "Level", "VBAWarnings")

وهو دالة if فإذا كان الإصدار أقل من 12 يكون اسم الحقل في الرجيستري level وإذا كان أكبر من أو يساوي 12 يكون اسم الحقل VBAWarnings

أرجو أن يكون الأمر قد اتضح