هل يوجد كود في بي اي لتمكين وحدات الماكرو؟

[YaSiN Abdullahi]

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

احبابي أعضاء ملتقى أفيسنا ، وأساتذنا الكرام، السلام عليكم ورحمة الله وبركاته.
هل هناك كود VBA لتمكين وحدات الماكرو في اكسس 2010؟

أو أي طريقة أخرى دون ذهاب الى الإعدادات اكسس.

[essam rabea]

أخى engyasin

أنا مش فاهم السؤال بالضبط ولكن لتشغيل الماكرو ضع الكود التالى فى اى حدث تشاء كحدث عند الضغط على زر معين

 

DoCmd.RunMacro "إسم الماكرو المراد تشغيله"

 

[YaSiN Abdullahi]

7 ساعات مضت, essam rabea said:

أخى engyasin

أنا مش فاهم السؤال بالضبط ولكن لتشغيل الماكرو ضع الكود التالى فى اى حدث تشاء كحدث عند الضغط على زر معين

 

DoCmd.RunMacro "إسم الماكرو المراد تشغيله"

 

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

[essam rabea]

أخى engyasin

انا كدة ابتديت افهم

ممكن تتغلب على هذا الموضوع بعمل Trusted Location من داخل الاكسيس كما يمكنك عملة عن طريق الريجسترى كالتالى:

انشئ ملف نصى جديد بأى إسم تريد على أن يكون إمتداده .reg

ضع به الكود النالى:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1]
"Path"="D:\\"
"AllowSubfolders"=dword:00000001
"Description"=""
"Date"="09/18/2019 07:56"

هنا جعلت درايف ال D بكامله أمان لأى ملف أكسيس وبالتالى أعتقد والله أعلم لن تظهر لك Enable Content

جرب وبالتوفيق

[YaSiN Abdullahi]

1 ساعه مضت, essam rabea said:

أخى engyasin

انا كدة ابتديت افهم

ممكن تتغلب على هذا الموضوع بعمل Trusted Location من داخل الاكسيس كما يمكنك عملة عن طريق الريجسترى كالتالى:

انشئ ملف نصى جديد بأى إسم تريد على أن يكون إمتداده .reg

ضع به الكود النالى:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1]
"Path"="D:\\"
"AllowSubfolders"=dword:00000001
"Description"=""
"Date"="09/18/2019 07:56"

هنا جعلت درايف ال D بكامله أمان لأى ملف أكسيس وبالتالى أعتقد والله أعلم لن تظهر لك Enable Content

جرب وبالتوفيق

@essam rabea بارك الله فيك أخي وزادك الله علما.

كود شغال %100
 

[gelani]

مساء الخير 

رائع جدا حفظك الله يا اخ عصام .

هذه المشكلة تواجهني دائما في العمل حيث انهم يقومون لدواعي السلامة برفع مستوى الأمان وبذلك تتعطل البرامج .

هل ممكن ترفق لنا مثال على ما ذكرته في ردك السابق جزاك الله خيرا .

 

[essam rabea]

أخى gelani

نفترض ان جميع مشروعات الأكسيس لديك تحفظها فى فولدر إسمه AccessProjects الموجود على درايف \:D

وعاوزين نخلى الفولدر ده Trasted Location علشان نمنع ظهور Enable Content فى كل مرة نغير فيها إسم الملف أو نمسحة ونضيفة مرة أخرى أو ننشئ مشروع جديد

ننشئ لملف نصى فى اى مكان ونجعل إمتداده reg ونسميه مثلا TrustedLocation.reg ونضع به الكود السابق وسيكون هذه المرة بالصورة التاليه

TrustedLocation.reg

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1]
"Path"="D:\\AccessProjects\\"
"AllowSubfolders"=dword:00000001
"Description"=""
"Date"=""

نغلق ونحفظ الملف ثم نوقوم بفتحه دبل كليك يعنى

وبكدة خلاص اى ملف اكسيس داخل الفولدر اللى إسمه AccessProjects الموجود على درايف \:D هيفتح بدون اى رسائل لتمكين الماكرو

أرجو أن أكون أوضحت

مرفق ملف الريجسترى منفصل

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

بالتوفيق

TrustedLocation.zip

EnableContent.zip

تم تعديل سبتمبر 18, 2019 بواسطه essam rabea

[gelani]

جزاك الله خيرا  وزادك علما وتوفيقا .

الصورة بدأت تتضح معي وقمت بالتجربة بعدة طرق ونجحت الى حد ما .

أحيانا الجهاز ليس به درايف D   وارغب ان يكون الملف محفوظ بمجلد بالدرايف  c او بفلاش ميموري  .

هل يكفي تغيير اسم الدرايف من D الى C مثلا ؟  ام هناك إجراءات أخرى ؟   وهل ينطبق هذا على جميع إصدارات الأوفيس ( 2019 مثلا ) ؟.

تحياتي وتقديري لك ولجميع أعضاء القروب المحترمين .

[الحلبي]

استاذنا الفاضل / @essam rabea

الله يفتح عليك وزادك الله علما وبارك الله فيك

انا متابع معكم الموضوع بحماس شديد

اعتقد سؤال الاستاذ / @gelani

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

بارك الله فيكم جميعا

 

[YaSiN Abdullahi]

استاذ @essam rabea هل بامكاننا وضع متغير بدلاً من اسم درايف؟ لتحديد تلقائي مسار قاعدة البيانات
بارك الله فيك

[essam rabea]

إخوانى engyasin, حلبي, gelani

 

 

[ibaradah]

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

أحبتي

دائما تخرج رسالة تنبيه عندما أضع كود عمل نسخة احتياطية لقاعدة البيانات أو بعض الأكواد الأخرى.

تم تغيير إصدارات الاوفيس لكن دون فائدة

الرسالة مرفقة

سؤال من بعد إذنكم

ببرنامج الأكسس يوجد تحويل الماكرو إلى VBA.

هل بالإمكان ان نعمل عكس ذلك بتحويل كود VBA إلى ماكرو

يعني اضع الكود في ماكرو

[حمدى الظابط]

اتفضل هذا الملف كان موجود بالمنتدى اضغط فقط غلى النموذج الثانى بيتم تخفيض الامان على جهاز التشعيل

تخفيض الامان.rar

[ابوبسمله]

14 ساعات مضت, ibaradah said:

الرسالة مرفقة

سؤال من بعد إذنكم

ببرنامج الأكسس يوجد تحويل الماكرو إلى VBA.

هل بالإمكان ان نعمل عكس ذلك بتحويل كود VBA إلى ماكرو

يعني اضع الكود في ماكرو

اولا السؤال ليس له علاقه بالموضوع

ثانيا مشكلتك فى اعدادت اللغه لديك اطلع ع الرابط التالى ستجد حل مشكلتك باذن الله

بالتوفيق

[abouelhassan]

9 ساعات مضت, حمدى الظابط said:

اتفضل هذا الملف كان موجود بالمنتدى اضغط فقط غلى النموذج الثانى بيتم تخفيض الامان على جهاز التشعيل

تخفيض الامان.rar 43.16 kB · 3 downloads

اخى بارك الله فيك

لا يوجد الا نموذج واحد ولا يوجد اى كود لتخفيض الامان

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

 

[ibaradah]

أحبتي

بعد شكر الله، اشكركم جميعا لمتابعتكم وحرصكم على نشر العلم.

نفع الله بعلمكم وجعله في موازين حسناتكم. 

تم الحل ولله الحمد

المشكلة لم تكن نهائياً بإعدادات اللغة فالإعدادات جميعها متوافقة.

وأيضا ال Debug لم تعطي اي اشعار بالخطأ بالكود

فقط كانت المشكلة في السطر الأول من الكود وايضا في بعض الكلمات.

أسأل الله جل في علاه أن لا يحرمكم الأجر 

[حمدى الظابط]

50 دقائق مضت, حمدى الظابط said:

بالفعل هذا هو المطلوب +1

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

 

34 دقائق مضت, abouelhassan said:

اخى بارك الله فيك

لا يوجد الا نموذج واحد ولا يوجد اى كود لتخفيض الامان

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

 

اتفضل وبعتذر عن الملف الخطأ

تخفيض الامان.rar

[ابوبسمله]

في 4‏/12‏/2022 at 21:46, ibaradah said:

تم الحل ولله الحمد

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

في 4‏/12‏/2022 at 21:46, ibaradah said:

المشكلة لم تكن نهائياً بإعدادات اللغة فالإعدادات جميعها متوافقة.

يمكن انت ادرى منا بالاعدادات التى لديك

على كل الحمد لله وبالتوفيق اخى