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

[abofayez1]

الأخوة الكرام 

السلام عليكم 

وبعد

هذا السكربت قدمه الأستاذ جعفر جزاه الله خيرا

أنا أعمل على أوفيس 2016 وكل النماذج منبثقة بنفس الشكل في المرفقات والملف يعمل ويقوم بخفض أمان أكسس بشكل رائع....  لكن لم يقم بإخفاء شاشة أكسس

ولم أتمكن من التعديل  بحيث يتم إخفاء شاشة أكسس.

أرجو المساعدة

وفقكم الله يا أخوان

jj.rar

[ابوخليل]

قد تستغرب عدم حصولك على اجابة

والسبب ان طلبك بالمقلوب 

المثال المرفق يخفي شاشة اكسس ولكنه لا يقوم بخفض الأمان 

فعند تحميل الفورم يقوم بتشغيل الوحدة النمطية الخاصة باخفاء الإطار

ولكن لا يوجد كود خاص بتشغيل الملف المصاحب

[abofayez1]

حياك الله آبا خليل

والله اني تفاجأت بكلامك...ربما اني نزلت مثال بالخطأ 

براجع المثال....

 

تم تعديل ديسمبر 20, 2023 بواسطه abofayez1

[abofayez1]

صدقت أستاذ أبو خليل فقد أخطأت في المثال

المهم طلبي إن كان ممكن :

كل النمادج لدي منبثقة  وأريد أن يعمل الكود بخفض الأمان مع إخفاء  أكسس ..أريد أن تبقى النماذج بدون تكبير شاشة أكسس.

 

[ابوخليل]

استبدلت ملفك بآخر تنفيذي

سيشتغل الملف ويقوم بتخفيض الأمان عند فتح البرنامج

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

jj2.rar

[abofayez1]

مبدع يا أستاذ أبو خليل

يعمل بامتياز

جزاك الله كل خير

والله أن خبرتك ودعمك تاج على رؤوس الجميع ولا نقدر نرد لك الجميل أبدا 

لكن ... أسأل الله العظيم رب العرش العظيم أن يجعل ما تقدمه في موازين حسناتك . وأن يوسع لك في رزقك ويصلح لك ذريتك 

تقبل تحياتي يا الغالي

[abofayez1]

لو تكرمت يا أبو خليل

أجريت تجارب على الملف ولاحظت أن الطريقة الأولى التي ذكرتها  ( سيشتغل الملف ويقوم بتخفيض الأمان عند فتح البرنامج ) لم تعمل معي ...حيث يقوم يفتح البرنامج بدون رسالة خطأ لكن زر الخروج لم يعمل .

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

[moho58]

السلام عليكم شكرا كثيرا وجزاء الله كل الخير يا  أبو خليل

أنا كذلك قمت بتجريب البرنامج

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

الطريقة الثانية عند النقر على الملف التنفيذي يشتغل بكفاءة ويقوم بتخفيض الامان

 

[ابوخليل]

نعم .. ذكرت .. اعذروني هذا حكم السن

اكسس يحمي نفسه عند تشغيله ، فيصعب تنفيذ تخفيض الأمان بل يمتنع ما دام في وضع التشغيل والعرض

اقوم غالبا بتخفيض الأمان عند التنصيب ، حيث احمل السكربت ضمن حزمة البرنامج وبرنامج التنصيب يقوم بالمهمة

واحيانا اعمل ملف يشغل قاعدة البيانات وفي الوقت نفسه يخفض الأمان 

وهو ما ارفقته هنا .. يجب ان يكون الملف بجانب القاعدة

انقر على الملف وسوف يفتح قاعدة البيانات على الحد الأدنى من الأمان

jj3.rar

[abofayez1]

بيض الله وجهك يا بو خليل

بل نحن نعتذر منك ..ولست من يعتذر

أشغلناك كثيرا .... لكن ما الحل لمن يريد دخول البرمجة بالقوة هذا وضعه يصبح عالة على الجميع ويشغل الناس معاه 😂

تقبل تحياتي يا عزيزي

[ابوخليل]

ابرك ساعة واشرف وقت

وجميع اخوانك هنا في خدمتك وتذليل ما يصعب عليك في دربك

 

 

[abofayez1]

رفع الله قدرك وحفظك

[abofayez1]

تحملنا يا ابو خليل 😂

الملف يعمل بامتياز ... لكن لابد يكون البرنامج بنفس الاسم seq  وكذلك الامتداد seq.accdb  والا لن يعمل

عند تسليم البرنامج للعميل بالتأكيد لن يكون اسم البرنامج وامتداده seq.accdb

وعند تحزيم البرنامج سيكون ملف التشغيل في سطح المكتب هو الكود وليست قاعدة البيانات 

إذا لا بد تكون اسم القاعدة بالامتداد المطلوب موجودة في الملف ليتم التشغيل من خلاله.

هل ممكن اعطيك اسم البرنامج وتعمل لي الملف عليه 

وإذا ما فيه حرج اعطني الكود وانا بحوله بالصيغة المطلوبة باستخدام برنامج  Vbs to exe  إن كان هذا البرنامج يفي بالمطلوب .

جزاك الله خير الجزاء

[ابوخليل]

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

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

هذه هي  الاسطر المسؤولة عن التخفيض ، وفتح قاعدة البيانات

انظر اختلاف اصدارة اكسس تختلف في كل سطر

استتلت لك صفحة الفيجوال كاملة وحولتها الى ملف تكست تجدها في المرفق 

Dim strVS As String
On Error Resume Next
strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)
strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)
strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)
strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1)
strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\16.0\Access\Security", "VBAWarnings", 1)
ShellExecute Me.hwnd, "open", App.Path & "\Seq.accdb", "", "", 1

 

code.rar

[ابوخليل]

اذا لم تتمكن من ضبط العملية وتريد ملف تنفيذي باسم قاعدة بياناتك الحقيقية زودني بالاسم والامتدااد

على فكرة .. في حالتنا هذه الذي نضعه على سطح المكتب هو اختصار للملف التنفيذي

[abofayez1]

جزاك الله خيرا يا أستاذنا الغالي

أنا حاليا مسافر ليوم أو يومين  وما معي جهاز … ارد عليك من الجوال حاليا.. إن رجعت إن شاء الله بحاول أحول الملف وإذا واجهت صعوبة…  اعطيتك اسم البرنامج والامتداد المطلوب. 

الله يحفظك ويطول عمرك في خير

[abofayez1]

أستاذنا أبو خليل

حولت الملف لامتداد exe

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

بينما الملف اللي أنت عملته يتقبله الويندوز ولا يشير له أنه فيروس .

لو تكرمت اعمل لي الملف بالامتداد التالي وإذا فيه إمكانية العمل على النواتين 32 و 64 يكون أفضل لأن البرنامج مجهز للعمل عليهما معا:

  twasol.accde

وفقك الله وبارك فيك

 

[ابوخليل]

تفضل

وأعتقد انه لا علاقة للنواة في مجال التنفيذ لانه يتعامل مع التسجيل

جرب على النواتين وأفدني بالنتيجة

twasol.rar

[abofayez1]

الله يحفظك ويطول عمرك ويصلح لك ذريتك ويوفقك 

سأجرب وسيعمل إن شاء الله

[abofayez1]

البرنامج اشتغل على النواتين بدون مشاكل وبامتياز ✔️

وفقك الله أبا خليل وبارك فيك

قدمت لي خدمة لن أنساها لك .

شكرا شكرا لك على عملك الرائع

[ابوخليل]

الحمد لله .. هذا من فضل الله وتيسيره

[ابو جودي]

8 ساعات مضت, ابوخليل said:

تفضل

وأعتقد انه لا علاقة للنواة في مجال التنفيذ لانه يتعامل مع التسجيل

جرب على النواتين وأفدني بالنتيجة

twasol.rar 3.87 kB · 6 downloads

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

فضلا وكرما ممكن حضرتك تعمل ملف تنفيذى يخص قاعدة بيانات باسم >>-->  RunApp.Accde

لان فعلا حاولت عمل الملف ولكن حماية ويندوز تراه تهديا ويتم حذف الملف تلقائيا بعكس الملف بتاع حضرتك 

[ابوخليل]

ابشر .. من عنيا .. غالي والطلب رخيص

تفضل

RunApp.rar

[ابوخليل]

اذا تريد ايقونة خاصة ارفقها لي

 

[Moosak]

1 ساعه مضت, ابوخليل said:

ابشر .. من عنيا .. غالي والطلب رخيص

كفو عليك عمي أبو خليل .. 😊🌼🌹

أيش رايك تعلمنا كيف نصيدها .. بدل ما ناكلها جاهزة 😁😅🖐🏻🌼