اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

نود ان نؤكد انه الى الان لا يمكن التعديل على كود الـ VBA لقاعدة البيانات بصيغة MDE .

ونحن في هذه الموضوع نناقش حماية التعديل للنماذج بقاعدة البيانات MDE وليس التعديل بكود ال VBA

هل لديكم احد البرامج الخارجية المساعدة التي تتيح لنا التعديل بالنماذج أو وصله للبرنامج ?

قام بنشر

السلام عليكم

محاولة قديمة ، لازلت أرى أنها منطلق الحماية التي ننشدها .

هناك إجراء في Module1 لصنع الكود الخاص بأي نموذج قم باستدعائه .

قم بفتح الـ Debug Window ونسخ الكود ولصقه في النموذج .

بعد ذلك قم بتغيير أي اسم لآي أداة وحاول فتح النموذج مرة أخرى .

تحياتي .

Protection.zip

  • 3 months later...
قام بنشر

أخوتي الكرام

تحية طيبة وبعد :

انتهيت من عمل برنامج ولله الحمد

وبعد تحويله الى ملف mde ألا حظ أنه ممكن الدخول على البرنامج عن طريق الشفت والتعديل فيه وفي الجداول والاستعلامات أما النماذج والتقارير يقبل التعديل ولكن لا يقبل الاضافة أي لو أنه مكتوب في النماذج أو التقارير برمجة فلان فإنه يعدل في الاسم كيف شاء كذلك ممكن لإضافة ماكروا msgbox ووضع هذا الماكروا عند الفتح

سؤال كيف يمكنني منع الاضافة علية بمنى آخر أى لا يحفظ بعد تحويله الى mde

تحياتي للجميع ،،، ،،،

قام بنشر

أخوتي تحية طيبة

يبدو أنني كتبت السؤال بطريقة غير مفهومه ولكن سؤالي هو

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

حتى لو قمت بتعطيل عمل الشفت

فكيف أجعل البرنامج لا يحفظ التعديلات

تحياتي للجميع

  • 3 months later...
قام بنشر

أخي أمير عاطف جزاك الله خير على الرابط ولكن أستطعت أن أعدل على مثال أخينا رضا

وإذا أردت سوف أرفق الملف بعد التعديل

قام بنشر

التعديل بتصميم النماذج والتقترير يمكن ذلك ... ولكن التعديل على كود الـــ VBA اعتقد ذلك لا يمكن

اذا قصدت التعديل على كود الــ VBA فنتمنى ارفاق القاعدة للإفادة

مع التحيه

قام بنشر

الطريقة اللي ممكن افكر فيها الان هي ان تعمل

workgroup file

من غير وجود هذا الفايل لن يستطيع احد التغيير في البرنامج من حيث التصميم

لكن للاسف اللي عنده خبرة في الاكسس يستطيع فتحه.

تحياتي

قام بنشر

بالطبع أنت لا تريد حماية كل الخصائص و القيم

فلو عدل شخص لون النموذج مثلا ـ فلا ضير

عموما أي خاصية تريد منع تعديلها

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

و بما أن العملية تتم بالكود فلن يمكن التعديل عليها

و أعتقد أن هذا كافي

قام بنشر

فعلاً وجدت ضالتي ولكن

عموما أي خاصية تريد منع تعديلها

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

هل تفظلت وتذكر لنا الكود

أحسن الله إليك

  • 2 weeks later...
قام بنشر

مثلا ، لنفرض وجود تسمية مكتوب فيها أن التصميم بواسطة محمد طاهر

فسيمكن تعديلها بعد التحويل الي mde و لكن

عند اعادة تحميل الفورم ، سيتم الاختبار و الاغلاق

Private Sub Form_Load()
 If Me.Label0.Caption <> "Design By Mohamed Taher" Then
   MsgBox "Ilegal Modification, Sorry You Can not continue "
   DoCmd.Quit
   
 End If
End Sub

  • 5 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information