كيفية إدراج أو حذف صفوف في ورقة العمل المحمية؟

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

إدراج أو حذف صفوف في ورقة العمل المحمية

VBA: إلغاء الحماية مؤقتًا، الإدراج/الحذف، وإعادة الحماية تلقائيًا

إدراج أو حذف صفوف في ورقة العمل المحمية

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

اتبع هذه التعليمات خطوة بخطوة لتمكين إدراج وحذف الصفوف في ورقة عمل محمية:

1. حدد الصفوف بالكامل التي تريد أن يتمكن المستخدمون من إدراجها أو حذفها. تحدد هذه العملية الأماكن في ورقة العمل المحمية حيث ستسمح بهذه العمليات. بعد تحديد الصفوف، انقر بزر الماوس الأيمن على التحديد، ثم اختر Format Cells من قائمة السياق. انظر إلى لقطة الشاشة:

2. في نافذة Format Cells التي تظهر، انتقل إلى تبويب Protection. هنا، قم بإلغاء تحديد خانة Locked لفك القفل عن هذه الخلايا أو الصفوف المحددة. فتح القفل أمر ضروري؛ وإلا لن يتمكن المستخدمون من إجراء أي تغييرات حتى لو كان لديهم أذونات أخرى. كن حذرًا ألا تقوم بفتح قفل المناطق الحساسة التي تريد أن تبقى محمية. انظر إلى لقطة الشاشة:

3. انقر على OK لإغلاق النافذة. بعد ذلك، انتقل إلى شريط Excel، انقر على Review ثم اختر Protect Sheet لتفعيل حماية الورقة. انظر إلى لقطة الشاشة:

4. في نافذة Protect Sheet التي تظهر، ستجد قائمة تحتوي على عبارة Allow all users of this worksheet to. قم بتحديد الخيارات Insert rows و Delete rows. أدخل كلمة مرور لحماية الورقة إذا لزم الأمر، وقم بتأكيدها عند المطالبة بذلك. هذه الخطوة ضرورية لمنح المستخدمين فقط الأذونات اللازمة للتحرير مع تأمين باقي الورقة. انظر إلى لقطة الشاشة:

5. وأخيرًا، انقر على OK لتفعيل حماية الورقة بموجب الإعدادات الجديدة. نتيجة لذلك، يمكن الآن إدراج أو حذف الصفوف المحددة فقط بناءً على الأذونات والإعدادات التي قمت بتكوينها، بينما تبقى باقي الورقة غير متأثرة. انظر إلى لقطة الشاشة:

تعمل هذه الطريقة بشكل جيد لتلبية معظم الاحتياجات الأساسية ولكن يجب ملاحظة أنها لا تسمح للمستخدمين بإدراج أو حذف الصفوف خارج المناطق غير المؤمنة والمصرح بها. راجع دائمًا الخلايا التي تم فتح قفلها قبل تفعيل الحماية لتجنب الكشف غير المقصود عن البيانات أو الحماية غير الكافية.

إذا كنت بحاجة إلى السماح بالإدراج أو الحذف عبر مناطق أوسع من الورقة، أو ترغب في المزيد من التشغيل الآلي، ففكر في الحلول القائمة على VBA أدناه.

VBA: إلغاء الحماية مؤقتًا، الإدراج/الحذف، وإعادة الحماية تلقائيًا

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

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

1. افتح ورقة العمل التي تريد تمكين هذه الوظيفة فيها. انقر على تبويب Developer (إذا لم يكن تبويب Developer مرئيًا، يمكنك تمكينه عبر File > Options > Customize Ribbon)، ثم انقر على Visual Basic. في نافذة محرر VBA التي تظهر، حدد Insert > Module، والصق الكود التالي في الوحدة:

Sub InsertRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim insertRow As Integer
    insertRow = Application.InputBox("Enter row number to insert:", "KutoolsforExcel", Type:=1)
    
    If insertRow > 0 Then
        ws.Rows(insertRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        MsgBox "Row inserted at " & insertRow, vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

Sub DeleteRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim delRow As Integer
    delRow = Application.InputBox("Enter row number to delete:", "KutoolsforExcel", Type:=1)
    
    If delRow > 0 Then
        ws.Rows(delRow).Delete
        MsgBox "Row " & delRow & " deleted.", vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

2. أغلق محرر VBA. لإدراج صف، اضغط على Alt + F8 لفتح نافذة Macro، حدد InsertRowInProtectedSheet، واضغط Run؛ لحذف صف، حدد DeleteRowInProtectedSheet واضغط Run. سيتم مطالبتك بإدخال كلمة مرور الورقة وتحديد الصف الذي تريد إدراجه أو حذفه. تعيد هذه الطريقة حماية الورقة فورًا بعد العملية لضمان الأمان المستمر. تأكد من حفظ مصنفك كملف مفعل للماكرو (.xlsm) لاستخدامه المستقبلي.

نصائح:

• تأكد دائمًا من أن لديك كلمة المرور الصحيحة قبل تشغيل الماكرو، لأن كلمة مرور غير صحيحة ستمنع التشغيل التلقائي.
• إذا حدث خطأ ما، راجع قيم الإدخال وتأكد من تمكين الماكرو في إعدادات مركز الثقة الخاص بـ Excel.