كيف تحافظ على الجدول قابل للتوسيع عن طريق إدراج صف الجدول في ورقة عمل محمية في إكسيل؟

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

احتفظ بالجدول قابلاً للتوسيع عن طريق إدراج صف جدول في ورقة عمل محمية برمز VBA

احتفظ بالجدول قابلاً للتوسيع عن طريق إدراج صف جدول في ورقة عمل محمية برمز VBA

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

1. انقر المطور > إدراج > زر (التحكم في النموذج) لإدراج أ التحكم بالنموذج زر في ورقة العمل الخاصة بك.

2. في ظهرت تعيين ماكرو مربع الحوار، انقر فوق جديد .

3. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز 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. اضغط على قديم + Q مفاتيح لإغلاق نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

5. حدد الخلايا في الجدول التي تريد تعيين بيانات جديدة إليها باستثناء عمود الصيغة ، ثم اضغط على CTRL + 1 مفاتيح لفتح تنسيق الخلايا صندوق المحادثة. في ال تنسيق الخلايا مربع الحوار ، قم بإلغاء تحديد مقفل مربع ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

6. قم الآن بحماية ورقة العمل الخاصة بك باستخدام كلمة المرور التي حددتها في كود VBA.

من الآن فصاعدًا ، بعد النقر فوق الزر "التحكم في النموذج" في ورقة العمل المحمية ، سيكون الجدول قابلاً للتوسيع عن طريق إدراج صف جديد كما هو موضح أدناه.

ملاحظات: يمكنك تعديل الجدول باستثناء عمود الصيغة في ورقة العمل المحمية.

مقالات ذات صلة:

• كيف تحافظ على تقطيع Pivot Table متحركًا مع تمرير ورقة العمل في Excel؟
• كيفية الجمع بين الخلايا والحفاظ على تنسيق الخلية في إكسيل؟
• كيفية إزالة التكرارات مع الاحتفاظ بالمثيل الأول في Excel؟