كيف يمكن تجميع الصفوف وإلغاء تجميعها في ورقة عمل محمية؟
كما نعلم جميعًا، بمجرد حماية ورقة عمل في Excel، تُفرض قيودٌ عديدة على الإجراءات التي يمكن للمستخدمين تنفيذها. فعلى سبيل المثال، يُعطَّل التبديل بين البيانات المجمعة وغير المجمعة—أي استخدام وظيفة المخطط التفصيلي في Excel لتوسيع المجموعات أو طيّها—افتراضيًا في الورقة المحمية. ويُعدّ هذا القيد مصدر إزعاج خاص عندما تريد السماح لبعض المستخدمين بتنظيم بياناتهم أو استكشافها عبر التجميع، مع الحفاظ في الوقت نفسه على أمان باقي المحتوى من التغييرات غير المرغوب فيها. ومن الأهمية بمكان فهم كيفية تمكين التجميع وإلغائه دون المساس بأمان الورقة، وذلك لتحقيق التوازن الأمثل بين سلامة البيانات وسهولة الاستخدام.
تجميع الصفوف وإلغاء تجميعها في ورقة عمل محمية باستخدام كود VBA
تجميع الصفوف وإلغاء تجميعها في ورقة عمل محمية باستخدام كود VBA
من الشائع أن تكون وظيفتا التجميع وإلغاء التجميع غير متاحتين عند تفعيل حماية ورقة العمل. إحدى الطرق الموثوقة لحل هذه المشكلة هي استخدام كود VBA، الذي يمكّنك من تمكين وظائف المخطط التفصيلي برمجيًا مع الحفاظ على حماية الورقة. هذه الطريقة مثالية إذا كنت مرتاحًا لاستخدام الماكرو أو إذا كانت سياسات مؤسستك تسمح باستخدام كود VBA. ومع ذلك، ضع في اعتبارك أن حلول VBA تتطلب عادةً حفظ الملفات بصيغة مصنفات ممكنة الماكرو ().xlsm)، ولا يُنصح باستخدامها إذا كانت الماكرو معطّلة في بيئة عملك أو إذا كنت تفضل تجنب مطالبات الأمان التي قد تظهر عند فتح الملفات.
1. فعّل ورقة العمل التي تريد تمكين التجميع وإلغاء التجميع فيها. تأكد من أن ورقة العمل غير محمية حاليًا—فإذا كانت محمية، فلن تعمل هذه الطريقة. وإذا لزم الأمر، استخدم الأمرمراجعة > إزالة حماية الورقةأولًا.
2. بعد ذلك، اضغط علىALT + F11 لفتح محررمايكروسوفت فيجوال بيسك للتطبيقات.
3. في محرر VBA، انقر فوقإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذة الوحدة النمطية الجديدة. تأكد من لصق الكود بدقة ليؤدي وظيفته بشكل صحيح.
كود VBA: تجميع الصفوف وإلغاء تجميعها في ورقة عمل محمية
Sub EnableOutlining()
'Updateby Extendoffice
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub
يُمكّن هذا الكود من حماية ورقة العمل مع السماح بوظيفة توسيع وطي الصفوف أو الأعمدة المجمعة. سيطلب منك الكود تعيين كلمة مرور للحماية—تأكد من تذكرها، لأنك ستحتاج إليها لإزالة حماية ورقة العمل مستقبلاً. وإذا نسيت كلمة المرور، فقد لا تتمكن من فتح الورقة دون استخدام طرق استرداد متقدمة.
4. اضغط علىF5 لتشغيل الكود. ستظهر نافذة مطالبة تطلب منك تعيين كلمة مرور لحماية ورقة العمل. أدخل كلمة المرور التي تريدها، ثم انقر فوقموافق. راجع لقطة الشاشة أدناه:
5. انقر فوقموافقبعد إدخال كلمة المرور. الآن، أصبحت ورقة العمل محمية، ولكنك أنت والمستخدمون الآخرون لا تزالون قادرين على توسيع المجموعات وطيّها باستخدام رموز الجمع والطرح (رموز المخطط الهيكلي) الموجودة على يسار ورقة العمل، كما هو موضح في لقطة الشاشة:
نصائح وتحذيرات:
- إذا كانت ورقة العمل محمية بالفعل، فلن يُنفَّذ الكود—لذا تأكد دائمًا من إزالة الحماية أولًا.
- يمكن أن تكون الحماية المستندة إلى VBA فعّالة في السيناريوهات المتقدمة، لكنها لا تمتد إلى البيئات التي تفرض قيودًا على الماكرو أو إلى المستخدمين غير الملمين بـ VBA.
- عند مشاركة ملف مصنف يحتوي على ماكرو، تذكّر المستلمين بتمكين الماكرو لضمان عمل هذه الوظائف بشكل صحيح.
المزايا:تمنح هذه الطريقة مرونةً في أتمتة عملية الحماية وتخصيص الإجراءات المسموح بها.
القيود:يجب تمكين ماكروات VBA، وقد لا يسمح بعض المستخدمين أو المؤسسات باستخدامها لأسباب أمنية.
إذا واجهت أخطاءً أو لم تعمل وظيفة التجميع كما هو متوقع بعد تشغيل الماكرو، فتحقق مجددًا من النقاط التالية:
- تمت إزالة حماية ورقة العمل قبل تشغيل الماكرو.
- تم إنشاء رموز المخطط الهيكلي (الجمع/الطرح) مسبقًا باستخدام البيانات > تجميع قبل تطبيق الحماية.
- لقد أدخلت كلمة المرور بشكل صحيح عند ظهور المطالبة، أو جرّب استخدام كلمة مرور أبسط لتسهيل استكشاف الأخطاء وإصلاحها.
- تتيح لك إعدادات الماكرو في Excel تشغيل VBA.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل