انتقل إلى المحتوى الرئيسي

كيفية حماية الجدول المحوري في Excel؟

في Excel ، كيف يمكننا حماية الجدول المحوري لمنع المستخدمين الآخرين من سحب الحقول أو العبث بالتخطيط؟ في هذه المقالة سوف أتحدث عن بعض الطرق لحماية الجدول المحوري في ورقة العمل.

حماية الجدول المحوري برمز VBA

حماية الجدول المحوري مع السماح بالوصول إلى أداة التقطيع


السهم الأزرق الحق فقاعة حماية الجدول المحوري برمز VBA

يمكن أن يساعدك رمز VBA التالي في حماية الجدول المحوري ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: حماية الجدول المحوري

Sub RestrictPivotTable()
'Updateby Extendoffice
Dim xpf As PivotField
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1)
  .EnableDrilldown = False
  .EnableFieldList = False
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each xpf In .PageFields
    With pf
      .DragToPage = False
      .DragToRow = False
      .DragToColumn = False
      .DragToData = False
      .DragToHide = False
    End With
  Next xpf
End With
Application.ScreenUpdating = False
    MsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"
End Sub

3. ثم اضغط F5 المفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بأن الجدول المحوري محمي ، انظر لقطة الشاشة:

doc حماية الجدول المحوري 1

الملاحظات:

1. سيؤدي هذا الرمز إلى تعطيل العديد من الميزات الموجودة في الجدول المحوري ، مثل منع المستخدمين من سحب أي من الحقول إلى موقع مختلف ، وتعطيل قائمة الحقول ، وإعدادات الحقل ، والتنقل ، وميزة التحديث.

2. في حالة وجود جداول محورية متعددة في الورقة النشطة ، يتم تطبيق هذا الرمز فقط على الجدول المحوري الأخير.


السهم الأزرق الحق فقاعة حماية الجدول المحوري مع السماح بالوصول إلى أداة التقطيع

في بعض الأحيان ، قد ترغب في حماية الجدول المحوري ولكن مع السماح بالوصول إلى أداة التقطيع لتطبيق وظيفة الفلتر ، يمكن أن تفيدك الخطوات التالية.

1. بعد إدخال القطاعة ، انقر بزر الماوس الأيمن عليها واختر الحجم والخصائص من قائمة السياق ، انظر لقطة الشاشة:

doc حماية الجدول المحوري 2

2. في تنسيق القطاعة جزء، انقر فوق عقارات لتوسيع الخيارات ، ثم قم بإلغاء تحديد مقفل الخيار ، انظر لقطة الشاشة:

doc حماية الجدول المحوري 3

3. ثم أغلق الجزء ، ثم انقر فوق التقيم > حماية ورقة لحماية هذه الورقة ، انظر لقطة الشاشة:

doc حماية الجدول المحوري 4

4. في خرجت حماية ورقة مربع الحوار ، ثم تحقق حدد الخلايا غير المقفلة و استخدم PivotTable & PivotChart الخيارات فقط في السماح لجميع مستخدمي ورقة العمل هذه ب مربع القائمة ، ثم أدخل كلمة المرور وقم بتأكيدها ، انظر الصورة:

doc حماية الجدول المحوري 5

5. ثم اضغط OK لإغلاق مربعات الحوار ، والآن عند النقر فوق تقرير الجدول المحوري ومحاولة تغييره ، لن يتم تعديله ، ولكن يمكنك تطبيق ميزة Slicer حسب حاجتك.

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for this tip. My question is, how do I reverse the code and edit the pivot table now?
This comment was minimized by the moderator on the site
For Each xpf In .PageFields
With pf

а где "х" потеряли?))) должно же быть With xpf
This comment was minimized by the moderator on the site
The macro doesn't work it just throws an object error
This comment was minimized by the moderator on the site
Hi, andrew,
The code works well, after applying the code, you will get the prompt box to remind you the pivot table has been protected, and then close it, now, when changing any data in the pivot table, a warning message box will be pop out.
This comment was minimized by the moderator on the site
Does not work. Get a run error
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations