كيف يمكنك الحفاظ على جدول قابل للتوسيع من خلال إدراج صف جدول في ورقة عمل محمية في Excel؟
في Excel، عند حماية ورقة العمل، تُعطَّل عادةً ميزة التوسيع التلقائي للجداول. فعلى سبيل المثال، إذا كان لديك جدول باسم Table1 وحاولت إدخال بيانات أسفل الصف الأخير في ورقة عمل محمية، فلن يتوسَّع الجدول تلقائيًا ليشمل هذا الصف الجديد. لكن هناك حلٌّ يتيح لك الحفاظ على قدرة الجدول على التوسع حتى مع بقاء ورقة العمل محمية. ويشرح لك هذا البرنامج التعليمي الخطوات المطلوبة لتمكين التوسيع التلقائي للجدول دون التنازل عن حماية الورقة.
الحفاظ على توسيع الجدول بإدراج صف جدول في ورقة عمل محمية باستخدام كود VBA
الحفاظ على توسيع الجدول بإدراج صف جدول في ورقة عمل محمية باستخدام كود VBA
كما هو موضح في لقطة الشاشة أدناه، يوجد جدول باسم Table1 في ورقتك، والعمود الأخير الجدول هو عمود صيغة. الآن تحتاج إلى حماية ورقة العمل لمنع تغيير عمود الصيغة، مع السماح بتوسيع الجدول بإدراج صف جديد وإدخال بيانات جديدة في الخلايا الجديدة. يُرجى اتباع الخطوات التالية.
1. انقر فوقالمطور > إدراج > زر (عنصر تحكم نموذج)لإدراجعنصر تحكم نموذجفي ورقة العمل الخاصة بك.
2. في مربع الحوار الظاهرتعيين ماكرو، انقر فوق الزرجديد.
3. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، يُرجى نسخ ولصق كود VBA أدناه بين الفقرتينSub وEnd Sub في نافذةالكود.
كود VBA: الحفاظ على توسيع الجدول بإدراج صف جدول في ورقة عمل محمية
'Update by ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount As Integer
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Set tableRg = ActiveSheet.ListObjects("Table4").Range
xRowCount = tableRg.Rows.Count
Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
Set yRg = xRg.Resize(xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
Contents:=True, Scenarios:=False, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = Trueملاحظات:
4. اضغط على مفاتيحAlt+Q لإغلاق نافذة مايكروسوفت فيجوال بيسك للتطبيقات.
5. حدد الخلايا في الجدول التي تريد إدخال بيانات جديدة فيها، باستثناء عمود الصيغة، ثم اضغط على مفاتيحCtrl+1 لفتح مربع حوارتعيين تنسيق الخلية. في مربع حوارتعيين تنسيق الخلية، قم بإلغاء تحديد خانةمقفولة، ثم انقر فوق الزرموافق. انظر لقطة الشاشة:
6. الآن، قم بحماية ورقة العمل باستخدام كلمة المرور التي حددتها في كود VBA.
من الآن فصاعدًا، بعد النقر على زر عنصر تحكم النموذج في ورقة العمل المحمية، سيصبح الجدول قابلًا للتوسيع عبر إدراج صف جديد، كما هو موضح في لقطة الشاشة أدناه.
ملاحظة: يمكنك تعديل الجدول باستثناء عمود الصيغة في ورقة العمل المحمية.
مقالات ذات صلة:
- كيف يمكنك تثبيت شريحة جدول البيانات المحوري في Excel بحيث تظل مرئية أثناء التمرير عبر ورقة العمل؟
- كيف يمكنك دمج الخلايا في Excel مع الحفاظ على تنسيقها الأصلي؟
- كيف يمكنني إزالة القيم المكررة مع الاحتفاظ بأول مثيل منها في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل