Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول مستخدم جديد

كيفية تجميع الصفوف وفك تجميعها في ورقة العمل المحمية؟

كما نعلم جميعًا ، في ورقة العمل المحمية ، هناك العديد من القيود بالنسبة لنا لتطبيق بعض العمليات. على سبيل المثال ، لا يمكننا التبديل بين البيانات المجمعة وغير المجمعة. هل هناك طريقة لتجميع الصفوف أو فك تجميعها في ورقة عمل محمية؟

قم بتجميع الصفوف وفك تجميعها في ورقة عمل محمية برمز VBA

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تصفية بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2021 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

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

ربما ، لا توجد طريقة أخرى جيدة لحل هذه المشكلة ولكن باستخدام رمز VBA ، يرجى القيام بما يلي:

1. قم بتنشيط ورقة العمل التي تريد استخدامها ، يرجى التأكد من أن ورقة العمل ليست محمية بعد.

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

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

كود فبا: تجميع الصفوف وفك تجميعها في ورقة عمل محمية

Sub EnableOutlining()
'Update 20140603
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 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بإدخال كلمة المرور لحماية ورقة العمل الحالية. انظر لقطة الشاشة:

doc-group-in-protected-sheet1

5. ثم اضغط OK، تمت حماية ورقة العمل الخاصة بك ، ولكن يمكنك توسيع رموز المخطط التفصيلي وتقليصها في ورقة العمل المحمية هذه ، راجع لقطة الشاشة:

doc-group-in-protected-sheet1

ملاحظة: إذا كانت ورقة العمل الخاصة بك محمية بالفعل ، فلن يعمل هذا الرمز.

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
الأقدم أولا
الجديد أولا
التعليقات (32)
لا يوجد تقييم. كن أول من يقيم!
مايش
مايش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يبدو أن هذا يعمل بشكل رائع ، ولكن عندما أقوم بإغلاق المصنف وإعادة فتحه ، واجهت نفس المشكلة - لا يمكنني توسيع مجموعاتي المنهارة.
رد
0
0
الرومي
الرومي     مايش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة ، هل يعرف أحد كيف يتغلب عليها. شكرا جزيلا
رد
0
0
ma99ie
ma99ie     الرومي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنت بحاجة إلى VBA لهذا ، وسيحتاج المستخدم النهائي إلى السماح بوحدات الماكرو حتى يعمل هذا.

اضغط على Alt + F11 لتنشيط محرر Visual Basic.

انقر نقرًا مزدوجًا فوق ThisWorkbook ، ضمن كائنات Microsoft Excel في مستكشف المشروع على الجانب الأيسر.

انسخ الكود التالي إلى الوحدة النمطية التي تظهر:



مصنف فرعي خاص_ فتح ()
مع أوراق العمل ("ملخص إمب")
.EnableOutlining = صحيح
.Protect UserInterfaceOnly: = صحيح
انتهت ب
نهاية الفرعية



سيتم تنفيذ هذا الرمز تلقائيًا في كل مرة يتم فيها فتح المصنف.
رد
0
0
تشيو
تشيو     مايش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] يبدو أن هذا يعمل بشكل رائع ، ولكن عندما أقوم بإغلاق المصنف وإعادة فتحه ، أواجه نفس المشكلة - لا يمكنني توسيع مجموعاتي المنهارة.بواسطة Mayich[/ quote] تم حل هذه المسألة كما يلي: Private Sub Workbook_Open () Dim wsh كمتغير لكل wsh في أوراق العمل (Array ("Sheet1"، "Sheet2")) wsh.EnableOutlining = True wsh.Protect Password: = "260615" ، DrawingObjects: = خطأ ، _ المحتويات: = صحيح ، _ السيناريوهات: = صحيح ، _ AllowFiltering: = صحيح ، _ AllowFormattingCells: = True ، _ userinterfaceonly: = True Next wsh End Sub
رد
0
0
مورن
مورن     تشيو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة ، بمجرد أن أغلق الورقة وأعد إدخالها ، فإنها لا تعمل ... يرجى إعطاء خطوة بخطوة مكان وكيفية الاستخدام. متغير لكل wsh في أوراق العمل (Arra y ("Sheet1"، "Sheet2"))) wsh.EnableOutli ning = True wsh.Protect Password: = "2606 15" DrawingObjects: = False، _ content: = True، _ Scenarios: = صحيح ، _ AllowFiltering: = صحيح ، _ AllowFormattingCells: = صحيح ، _ userinterfaceonly: = True Next wsh End Sub
رد
0
0
نعمان
نعمان
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا يا أخي ، هذا يعمل بشكل جيد حقا. شكرا جزيلا
رد
0
0
جغارنر
جغارنر     نعمان
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف حصلت على هذا للعمل؟ لقد حاولت إضافته إلى VBA أعلاه وإنشاء وحدة نمطية مختلفة لكنها لا تزال لا تعمل. هل أحتاج إلى تغيير أي من الرموز؟ مثل كلمة المرور الخاصة بي التي أستخدمها أم أحتاج إلى تغيير أسماء الأوراق؟
رد
0
0
فاي باخ
فاي باخ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة عندما أغلق المصنف. أي أفكار لإصلاحها؟
رد
0
0
تشيو
تشيو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Private Sub Workbook_Open () Dim wsh كمتغير لكل wsh في أوراق العمل (صفيف ("TD_ phase_3"، "RS_Phase_2")) wsh.EnableOutlining = True wsh.Protect Password: = "260615"، DrawingObjects: = False، _ content: = صحيح ، _ السيناريوهات: = صحيح ، _ AllowFiltering: = صحيح ، _ AllowFormattingCells: = صحيح ، _ userinterfaceonly: = True Next wsh End Sub
رد
0
0
جغارنر
جغارنر     تشيو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما زلت غير متأكد كيف يعمل هذا. هل أقوم بإنشاء وحدة جديدة أو إرفاقها بالوحدة أعلاه؟
رد
0
0
جوش
جوش     تشيو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك القيام بالمشي خطوة بخطوة لمعرفة مكان وضع هذا كما فعلوا في التعليمات الأصلية. شكرًا لك.
رد
0
0
إضافة تعليق
إضافة تعليق
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا! لقد استخدمت الماكرو الأول بنجاح ثم واجهت نفس المشكلة وهي إغلاق المصنف ولم يعد الماكرو يعمل. أرى الحل أعلاه ولكن لا يمكنني جعله يعمل على الإطلاق. هل تمانع في المرور بي؟ هل أجمع كلا الرمزين أم أستخدم الأخير فقط؟ إذا كانت كلمة المرور الخاصة بي هي "dog" ، فهل أستبدل إحدى القيم الموجودة في الكود؟ أنا أتقدم بطلب إلى ورقة عمل واحدة فقط ("الورقة 1") ؛ هل أستخدم ذلك في أي مكان؟ شكرا كثيرا مسبقا!!
رد
0
0
عمانوئيل نعيمة
عمانوئيل نعيمة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الرجاء مساعدتي ، أريد أن أطوي وأوسع بعض القوائم والأعمدة في جدول بيانات Excel محمي. كيف يمكنني استخدام وحدات الماكرو للقيام بذلك؟ لقد جربت ما أظهرته ولكنهم لا يعملون في جدول البيانات الخاص بي. الرجاء المساعدة.
رد
0
0
عمانوئيل نعيمة
عمانوئيل نعيمة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، الرجاء مساعدتي في توسيع وطي القوائم والأعمدة في جدول بيانات Excel المحمي. حاولت استخدام تلك التي أظهرتها أعلاه لكنها لا تعمل.
رد
0
0
توم
توم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل تم طرحه / الرد عليه؟ أين يمكنك تحديد / تغيير كلمة المرور الشخصية في الرمز؟
رد
0
0
توم
توم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تغيير كلمة المرور إلى قيمة أخرى؟
رد
0
0
أراف
أراف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أستخدم الأمر ، أرى رسالة خطأ كما هو موضح أدناه:
مصنف فرعي خاص_ فتح ()
خافت وش كنوع متغير
لكل wsh في أوراق العمل (صفيف ("TD_ phase_3"، "RS_Phase_2"))
wsh.EnableOutlining = صحيح
wsh.Protect Password: = "260615" ، DrawingObjects: = خطأ ، _
المحتويات: = صحيح ، _
السيناريوهات: = صحيح _
AllowFiltering: = صحيح ، _
AllowFormattingCells: = صحيح ، _
userinterfaceonly: = صحيح
التالي wsh
نهاية الفرعية
خطأ وقت التشغيل '9':
منخفض خارج النطاق
رد
0
0
نيلاش
نيلاش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل هذا قليلاً ، بمجرد إغلاقه وإعادة الفتح ، يتوقف:
رد
0
0
نافين كومار
نافين كومار     نيلاش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حتى بالنسبة لي هل هناك حل آخر؟
رد
0
0
سرافانثي
سرافانثي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مصنف فرعي_مفتوح ()
تحديث 20140603
خافت xWs كورقة عمل
تعيين xWs = Application.ActiveSheet
خافت xPws كسلسلة
xPws = "rfc" "" Application.InputBox ("كلمة المرور:" ، xTitleId ، "" ، النوع: = 2)
xWs.Protect Password: = xPws ، Userinterfaceonly: = True
xWs.EnableOutlining = صحيح
نهاية الفرعية
رد
0
0
Susan
Susan
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد حصلت على هذا الرمز للعمل. ولكن عندما أغلق وأعيد فتحه ، يجب أن أذهب إلى علامة تبويب المطور ، وحدد زر وحدات الماكرو ، وحدد تشغيل وأدخل كلمة المرور.

هل هناك طريقة لإزالة كلمة المرور من الرمز أو رمز التشغيل التلقائي الذي سيُشغِّل العلامة التجارية تلقائيًا ويدخل كلمة المرور؟
رد
0
0
خوخي
خوخي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لإصلاح مشكلة عدم عمل هذا في ملفك بعد إغلاقه وفتحه مرة أخرى ، يجب عليك لصق رمز VBA في "ThisWorkbook" ضمن كائنات Microsoft Excel بدلاً من وحدة نمطية جديدة. سيؤدي هذا بعد ذلك إلى تشغيل الماكرو تلقائيًا في كل مرة يتم فيها فتح الملف.
رد
0
0
دنيس
دنيس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل لديك صور لرمز VBA الذي تمت مناقشته قبل 6 أيام للتحدث حول ThisWorkbook ضمن كائنات Microsoft بدلاً من وحدة نمطية جديدة. يتم فقد الوظيفة عندما أعود إلى المصنف الخاص بي
رد
0
0
إيدي
إيدي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قد يحتاج شخص ما إلى هذا ، أعتقد أنني اكتشفت كيفية جعل هذا العمل.

أولاً ، يجب كتابة التعليمات البرمجية الخاصة بك في "ThisWorkbook" ضمن كائنات Microsoft Excel ، كما يقترحpeachyclean.
ثانيًا ، خذ الكود الذي كتبتهSravanthi ، والصقه في الموقع المذكور أعلاه.

مصنف فرعي_مفتوح ()
تحديث 20140603
خافت xWs كورقة عمل
تعيين xWs = Application.ActiveSheet
خافت xPws كسلسلة
xPws = "rfc" "" Application.InputBox ("كلمة المرور:" ، xTitleId ، "" ، النوع: = 2)
xWs.Protect Password: = xPws ، Userinterfaceonly: = True
xWs.EnableOutlining = صحيح
نهاية الفرعية

الشيء هو أنك تحتاج إلى أن تكون على الورقة التي تريد حمايتها ولكن مع السماح باستخدام التجميع ، وحفظ المصنف وإغلاقه ، دون حماية. الآن إذا فتحته ، سيبدأ الماكرو تلقائيًا ، سيجعل الورقة محمية بكلمة المرور "rfc". الآن يمكنك استخدام التجميع ، الورقة محمية.

بالنسبة للحل الخاص بي ، لقد قمت بتعديل كلمة المرور المطبقة ، بحيث يمكنك إعادة كتابة أي كلمة مرور هنا:
xPws = "WRITEANYPASSWORDHERE" "Application.InputBox (" كلمة المرور: "، xTitleId ،" "، النوع: = 2)

علاوة على ذلك ، لم أرغب في تنشيط الورقة المحمية عند فتح الملف ، لذلك قمت بتعديل هذا الجزء:
قم بتعيين xWs = Application.ActiveSheet ->
مجموعة xWs = Application.Worksheets ("WRITEANYSHEET'SNAMEHERE")

تعمل الآن مثل السحر ، الورقة المسماة "WRITEANYSHEET'SNAMEHERE" محمية ولكن التجميع قابل للتطبيق. على المدى الطويل ، أعتقد أن المشكلة ستكون أنه إذا كنت أرغب في تعديل هذا الملف والاحتفاظ بالحل ، فأنا بحاجة إلى إلغاء حماية هذه الورقة لجعلها تعمل في الافتتاح التالي. أعتقد أنه يمكنك كتابة ماكرو آخر لإلغاء الحماية تلقائيًا عند الإغلاق :)


آمل أن يكون قد ساعد.
رد
1
0
ديفيا مونجا
ديفيا مونجا     إيدي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا .. هذا عمل العجائب. المكان الوحيد الذي أواجه فيه مشكلة الآن هو أنني بحاجة للقيام بذلك لأوراق متعددة في المصنف. هل يمكنك الثابتة والمتنقلة المساعدة في ذلك.
رد
0
0
بوب سي
بوب سي     إيدي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بدت هذه السلسلة على أنها بالضبط ما أحتاجه ، لأنني لا أعرف شيئًا عن VBA. تمكنت من تشغيل هذا في البداية ولكن كما أشير ، بمجرد إغلاق جدول البيانات وإعادة فتحه ، لم يعد يعمل. حاولت كتابة الكود في "ThisWorkbook" كما لوحظ ولكن لا يمكنني معرفة كيفية القيام بذلك. يمكنني رؤية "ThisWorkbook" لكني لا أعرف كيف أكتب فيه. كل طريقة أراها لإنشاء وحدة نمطية ، تقوم بإنشاء وحدة نمطية جديدة في مجلد "وحدات" منفصل ، خارج مجلد "كائنات Microsoft Excel". هل من اقتراحات حول كيفية وضع هذا الرمز في "ThisWorkbook"؟
رد
0
0
خورخي
خورخي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هائل
رد
0
0
دين فابيلا
دين فابيلا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية تجميع الصفوف والأعمدة وفك تجميعها في ورقة العمل المحمية؟
رد
0
0
msbnty@gmail.com
msbnty@gmail.com
تم تصغير هذا التعليق بواسطة المشرف على الموقع
f * ck ، سرق هذا ملف Excel الخاص بي لاحقًا وغير كلمة المرور بشكل خاص
رد
0
0
كريج
كريج
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل توجد طريقة لجعل هذا يعمل في مصنف مشترك؟ - أنا بحاجة لتغيير المسار ، شكرا
رد
بلغ
0
0
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
ضيف
النشر كضيف
الدخول
×
قيم المنشور:
إعادة تعيين
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL