إخفاء زر الخيارات في اكسس 2010

غرّام العقول كتب:

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

لم أكن أتوقع أن يكون إخفاء زر خيارات الخصوصية في اكسس 2010 بهذه الصعوبة.

أرجو ممن لديه فكرة عن ذلك أن يشرحها لنا .. والشكر موصولٌ سلفاً.

اخي الفاضل : غرام العقول

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

هل تريد القائمة لديك تكون بهذا الشكل

لاحظ معي انه لا يوجد اي شيء سوى زر الإنهاء

لهذا فإن لدينا طريقتين للحل فإختار منها ما يناسبك وكلها سهلة وبسيطة وشيقة في نفس الوقت

اولا : قبل كل شيء قم بالتطبيق على قواعد بيانات تجريبية لغرض التدريب عليها لكل طريقة قاعدة بيانات جديده واذا استحسنت احدى الطرق طبقها على قاعدة بياناتك الرئيسية

*. سنقوم اولا بإزالة علامات الصح من الخيارات الغير مرغوب فيها مثل اظهار القوائم الكاملة والمختصرة وجعل عدد الملفات او المستندات ( 0 ) التي يتم فتحها

الطريقة الأولى : انشاء جدول بإسم USysRibbons ونضع به الحقول التالية :

ID AutoNumber Long Integer

RibbonName Text 50

RibbonXml Memo

بعد انشاء الجدول والحقول نحفظة بإسم USysRibbons

الآن نفتح الجدول لإدخال البيانات التالية به في سجل جديد

في حقل RibbonName نكتب الكلمة التالية SimpleFile

في حقل RibbonXml نضع به هذه العبارة كاملة

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"><ribbon startFromScratch="false"></ribbon><backstage><button idMso="ApplicationOptionsDialog" visible="false"/><tab idMso ="TabPrint" visible="false"/></backstage></customUI>

الآن نغلق القاعدة ونعيد تشغيلها من جديد

وعند فتح قاعدة البيانات سنجد ان الجدول USysRibbons قم تم اخفاؤه لأنه من جدوال النظام

وسنجد انه تم انشاء شريط قوائم مختصر SimpleFile نقوم بإختياره من هنا ثم نضغط موافق

الآن نقوم بإغلاق القاعدة وإعادة تشغيلها

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

za-Database5.rar

---------------------------------------------------------------------------

ننتقل الآن الى الطريقة الثانية وهي سهلة ايضا ولا تحتاج الى شرح موسع

*. كما عملنا في الخطوات السابقة من ازالة الخيارات الغير مرغوب فيها ثم نقوم بإنشاء وحدة نمطية جديده ونضع بها هذا الكود

Function zaLoadRibbon()
Dim sXML
  sXML = "<customUI xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
      "<ribbon startFromScratch=""false"">" & _
      "</ribbon>" & _
      "<backstage>" & _
      "<button idMso=""FileSave"" visible=""false""/>" & _
      "<button idMso=""SaveObjectAs"" visible=""false""/>" & _
      "<button idMso=""FileSaveAsCurrentFileFormat"" visible=""false""/>" & _
      "<button idMso=""FileOpen"" visible=""false""/>" & _
      "<button idMso=""FileCloseDatabase"" visible=""false""/>" & _
      "<tab idMso =""TabInfo"" visible=""false""/>" & _
      "<tab idMso =""TabRecent"" visible=""false""/>" & _
      "<tab idMso =""TabNew"" visible=""false""/>" & _
      "<tab idMso =""TabPrint"" visible=""false""/>" & _
      "<tab idMso =""TabShare"" visible=""false""/>" & _
      "<tab idMso =""TabHelp"" visible=""false""/>" & _
      "<button idMso=""ApplicationOptionsDialog"" visible=""false""/>" & _
      "<button idMso=""FileExit"" visible=""true""/>" & _
      "</backstage>" & _
      "</customUI>"
  Application.LoadCustomUI "SimpleFile", sXML
End Function

الآن نحفظ الوحدة النمطية ونخرج منها

نقوم الآن بإنشاء ماكرو ونستدعي الوحدة النمطية zaLoadRibbon()

من خلال الأمر RunCode ثم نضع اسم الدالة

الآن نحفظ الماكرو بإسم AutoExec

ثم نقوم بتشغيله لمرة واحده حتى يتم تنشيط الخيارات

نذهب الآن الى

ملف

خيارات

قاعدة البيانات الحالية

ونختار اسم الشريط SimpleFile ثم نضغط موافق

الآن نقوم بلإغلاق القاعدة ثم نعيد تشغيلها ونرى النتيجة

وهذه هي قاعدة البيانات بها وحده نمطية مع ماكرو AutoExec ونموذج

لا تنسانا من التقييم بارك الله بك

za-Database6.rar

بالتوفيق

أستاذتنا القديرة الفاضلة الدكتورة/ زهرة العبدالله

جزاكم الله عنا أفضل ما جزى معلماً عن تلامذته.

كلتا الطريقتين آتت أكلها ولم تظلم منه شيئاً.

تمت الإجابة

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

غرّام العقول كتب:

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

لم أكن أتوقع أن يكون إخفاء زر خيارات الخصوصية في اكسس 2010 بهذه الصعوبة.

أرجو ممن لديه فكرة عن ذلك أن يشرحها لنا .. والشكر موصولٌ سلفاً.

 

 

 

 

za-Database6-tool.rar

استاذة زهرة شكرا كثير ع مشاركات و أنا استفدت منذ سنوات من خبرتك و جزاك الله كل خير سؤالي في قاعدة بياناتك اضفت شريط ادوات و اريد اخفاء كل اشرطة الادوات و ايضا منع تخصيص شريط و ذلك منع التعديل على القاعدة او اي مكون فيها و منتظر ردك استاذتنا القديرة و مرفق القاعدة مع السؤال

و شكراا 

za-Database6-tool.rar