كيف تحافظ على الجدول قابل للتوسيع عن طريق إدراج صف الجدول في ورقة عمل محمية في إكسيل؟
ستفقد وظيفة التوسيع التلقائي للجدول بعد حماية ورقة العمل في 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؟
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!















