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

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

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

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

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

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

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

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

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

3. انقر فوق "موافق" لإغلاق مربع الحوار. بعد ذلك، انتقل إلى شريط أدوات Excel، اضغط على مراجعة، ثم حدد حماية الورقة لتمكين حماية الورقة. انظر لقطة الشاشة:

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

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

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

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

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

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

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

1. افتح ورقة العمل حيث تريد تمكين هذه الوظيفة. اضغط على علامة التبويب مطور (إذا لم تكن علامة التبويب مطور مرئية، يمكنك تمكينها عبر ملف > الخيارات > تخصيص الشريط)، ومن ثم اضغط على Visual Basic. في نافذة محرر VBA التي تظهر، حدد إدراج > وحدة، والصق الكود التالي في الوحدة:

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 لفتح مربع حوار الماكرو، حدد InsertRowInProtectedSheet، واضغط على تشغيل؛ لحذف صف، حدد DeleteRowInProtectedSheet واضغط على تشغيل. سيتم مطالبتك بإدخال كلمة مرور لورقة العمل وتحديد الصف الذي تريد إدخاله أو حذفه. هذه الطريقة تعيد حماية الورقة فورًا بعد العملية لضمان الأمان المستمر. تأكد من حفظ مصنفك كملف مفعل الماكرو (.xlsm) لاستخدامه في المستقبل.

نصائح:

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