lordring قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 (معدل) السلام عليكم في المرفق اداة تقوم بتخفيض امان الاكسس ومن ضمنها لل 2010 السؤال كيف اجعل هذا الملف يعمل تلقائيا عند تشغيل ملف القاعدة.. بعد ان ارفقه الى جانب القاعدة وشكرا open.rar تم تعديل نوفمبر 4, 2011 بواسطه lordring
الصمت المتحدث قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 إليك هذا النموذج للأخت زهرة في التعرف على نسخة الاوفيس المنصبة وتخفيض الامان برمجيا النموذج
أبو آدم قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 بوركت وجزيت خيرا أخي العزيز خيار برمجي ممتاز لأستاذتنا زهرة العبدالله مع ضرورة حفظ حقوقها حسب طلبها في التطبيق '*************** الحقوق البرمجية *************** '* لا مـــانع من استخدام هذه الأكواد في البرامج * '* مع ضرورة الإشارة الى المبرجة زهــره العبدالله * 'URL:http://www.arabteam2000-forum.com/index.php?showtopic=136983 '*********************************************
lordring قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 اخي الكريم انا استخدمت البحث ولدي الشرح والامثلة على هذا الموضوع لكن مثال الاخت زهرة والذي هو لدي سلفا لايقوم بواجبه مع الاكسس 2010 حيث تبقى الشاشة الافتتاحية في وضع السكون لانها لاتتعرف على الاكسس الحالي ولاتقوم بتخفيضه لذلك ارفقت هذه الاداة التي تقوم بتخفيض امان ال2007 وال2010 تحياتي
أبو آدم قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 عذراً لم أنتبه لموضوع 2010 جرب المرفق ووافني بالنتيجة ............ تم سحب المرفق لإعادة النظر
lordring قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 للاسف لم تعمل وهذه رسالة الخطاء وشكرا
أ / محمد صالح قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 أخي الكريم لتخفيض أمان الأكسس برمجيا لجميع نسخ الأكسس ضع في حدث عند التحميل للنموذج الذي تفتح عليه قاعدة البيانات الكود التالي 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 1
lordring قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 اخي الكريم قمت بتجربة مثالك ولكن لم يخفض الامان لدي وبقي الاكسس يمنع الماكرو
أ / محمد صالح قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 أخبرني بالضبط ماذا حدث معك بعد تحميل الملف وبالتفصيل الممل ...... للعلم أرفقت مثال بصيغة mdb حتى يمكن لمستخدمي أوفيس 2003 وما قبلها تجربته 1
lordring قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 لم يحدث شي انا رفعت الامان في برنامج الاكسس لدي ومن ثم قمت بفتح ملفك واغلقته لمرتين او اكثر ومع ذلك بقى الامان مرتفع ولم ينخفض ...
أ / محمد صالح قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 أخي الكريم بعد أن قمت برفع الأمان وفتحت ملفي ظهرت لك رسالة تخبرك أن الملف يحتوي على ماكروات ماذا فعلت مع هذه الرسالة؟؟!! ...... الصواب أن تمكن الماكرو حتى يعمل ويقوم بخفض الأمان بعد ذلك لاحظ النص الموجود في النموذج بعد فتح النموذج لأول مرة سيتم تخفيض أمان الأكسس لجميع إصدارات الأوفيس جرب وأخبرني بالنتيجة أخي الكريم 1
lordring قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 اخي الكريم الصورة الاولى للاكسس وفيه الامان مرتفع قمت الان بفتح ملفك عدت الان الى الاكسسس لازال الامان مرتفع
أ / محمد صالح قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 أعتقد أنك لم تمكن الملف من العمل في أول مرة فهذا ما يحدث عندي بالصور هذه صورة الإعدادات قبل تشغيل الملف وعند فتح الملف لأول مرة تظهر رسالة تمكين المحتوى وبعد تمكين المحتوى وعمل الملف هذه صورة الإعدادات ...... على العموم حتى تظهر رسالة تمكين المحتوى هذه مرة أخرى غيّر اسم الملف ثم افتحه واختر تمكين المحتوى أو تمكين الماكروات لأول مرة فقط وسيغيرها الملف كما مر بالصور 1
lordring قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 اخي الكريم يشترط لعمل الكود هو ظهور شريط تمكين المحتوى.. اي يجب ان تكون الخيارات كالتالي في الحالة التي كنت اجرب كان البرنامج لدي على الخيار الثاني اي عدم اظهار الشريط وبالتالي لايتفذ الكود بملفك لانه مرتبط بشرط الموافقة على تمكين المحتوى الان الصورة واضحة ... لكن ياحبذا لو كانت الطريقة من غيرهذا الشرط وان يتم التنفيذ في الخلف دون تدخل المستخدم ...... وشكرا لك
علي المصري قام بنشر يناير 9, 2016 قام بنشر يناير 9, 2016 ولكن من الأفضل وضع الكود التالي عند اغلاق البرنامج 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 لعودة الأمان مرة اخرى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.