كيفية إدراج أو حذف صفوف في ورقة عمل محمية؟
عند العمل مع بيانات حساسة أو مشتركة في ورقة عمل 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 Sub2. أغلق محرر VBA. لإدخال صف، اضغط على Alt + F8 لفتح مربع حوار الماكرو، حدد InsertRowInProtectedSheet، واضغط على تشغيل؛ لحذف صف، حدد DeleteRowInProtectedSheet واضغط على تشغيل. سيتم مطالبتك بإدخال كلمة مرور لورقة العمل وتحديد الصف الذي تريد إدخاله أو حذفه. هذه الطريقة تعيد حماية الورقة فورًا بعد العملية لضمان الأمان المستمر. تأكد من حفظ مصنفك كملف مفعل الماكرو (.xlsm) لاستخدامه في المستقبل.
نصائح:
- تأكد دائمًا من أن لديك كلمة المرور الصحيحة قبل تشغيل الماكرو، لأن كلمة مرور غير صحيحة ستعيق التشغيل الآلي.
- إذا حدث خطأ ما، راجع قيم الإدخال وتأكد من تمكين الماكرو في إعدادات مركز الثقة الخاص بـ 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد