تحية طيبة
كيف يمكن حماية محرر الوحدات النمطية برمجياً لقاعدة بيانات خارجية؟
------------
قمت باستخدام جملة Sendkeys ولكنها مرة تعمل ومرة أخرى لاتعمل
dim A As New Access.Application
A.OpenCurrentDatabase Acpath
SendKeys "%{F11}%(TE)+{TAB}{RIGHT}{TAB}{ }{ENTER}%{F4}Honey{TAB}Honey{TAB}{ }{ENTER}"حاولت باستخدام
A.RunCommand acCmdVisualBasicEditor
ولكننى لم أجد داخل DoMenuItem مسار للـ Project Properties ومن ثم علامة التبويب Protection.
تقبلوا فائق تحياتى
تم تعديل هذه المشاركة بواسطة هانى عوض في 10 أكتوبر 2009 في 14:29
أخي الكريم
أعتقد والله أعلم
أنك يمكنك التعامل مع vbe project بالنسخ والنقل والحذف والتعديل لكل مكوناته سواء موديولات أو إجراءات وتغيير الاسماء
ولكن موضوع الحماية هذا يكون للقراءة فقط
بمعنى أنه يمكنك قراءة هل هذا المشروع محمي أم لا
التغير هو القانون الدائم للحياة.ودوام الحال من المحال
فلماذا لا نتغير بإرادتنا إلى ما نريد؟ قبل أن تغيرنا الحياة مجبرين إلى ما لا نريد؟
up
حاول أخي الكريم بالكود التالي (تعديل على كود كنت قد كتبته كمشاركة في موضوع للأخ ناصر المصاورة على ما أذكر):
Dim A As New Access.Application
A.OpenCurrentDatabase Acpath
A.RunCommand acCmdVisualBasicEditor
If A.VBE.ActiveVBProject.Protection = vbext_pp_none Then
SendKeys "%(TE)+{TAB}{RIGHT}{TAB}{ }{TAB}(Honey){TAB}(Honey){ENTER}"
Else
SendKeys "%(VP){ENTER}(Honey){ENTER}%(TE)+{TAB}{RIGHT}{TAB}{ }{TAB}{DEL}{TAB}{DEL}{ENTER}"
End If
DoEvents
A.Quit
Set A = Nothingهذا الكود من المفروض أن يعين أو يزيل حماية المحرر حسب حالة الحماية حالياً...
والله أعلم.
شكرا لتجاوبك معى أخى أحمد مبارك
لا أختلف معك فى هذا الكود فإننى استعمله منذ فترة..كما هو موضح بالمشاركة الأولى
ولكننى لا أريد تنفيذه عن طريق SendKeys لما تنتجه من مشاكل..
لازلت أعمل عليه لتنفيذه بأى طريقة أخرى..
وشكراً لحسن المتابعة..
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…