Skip to main content

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

Author: Xiaoyang Last Modified: 2025-05-30

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

إدراج تعليقات في ورقة العمل المحمية من خلال تحديد خيار تحرير الكائنات

إدراج تعليقات في ورقة العمل المحمية باستخدام كود VBA


arrow blue right bubble إدراج تعليقات في ورقة العمل المحمية من خلال تحديد خيار تحرير الكائنات

لإدراج تعليقات في ورقة العمل المحمية، يمكنك التحقق من خيار تحرير الكائنات أثناء حماية ورقة عملك. يرجى القيام بما يلي:

1. انقر على مراجعة > حماية الورقة، انظر إلى لقطة الشاشة:

go to protect sheet feature

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

check edit objects and enter password

3. ثم انقر فوق موافق، وأعد إدخال كلمة المرور الخاصة بك في مربع الحوار تأكيد كلمة المرور.

reenter the password

4. وبعد ذلك انقر فوق موافق لإغلاق مربعات الحوار، والآن تم حماية ورقة عملك، ولكن يمكنك إدراج تعليقات في هذه الورقة.

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


arrow blue right bubble إدراج تعليقات في ورقة العمل المحمية باستخدام كود VBA

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

1. انقر فوق الخلية التي تريد إدراج تعليق فيها.

2. اضغط مع الاستمرار على مفتاحي ALT + F11، وسيفتح نافذة Microsoft Visual Basic for Applications.

3. انقر على إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إدراج تعليقات في ورقة العمل المحمية

Public Sub InsertComment()
'Update 20140723
Dim xPW As String
Dim xComment As String
xPW = “123456”
xTitleId = "KutoolsforExcel"
xComment = Application.InputBox("Input comments", xTitleId, "", Type:=2)
Application.ActiveSheet.Unprotect Password:=xPW
Application.ActiveCell.AddComment
Application.ActiveCell.Comment.Text Text:=xComment
ActiveSheet.Protect Password:=xPW
End Sub

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

insert comments in protected sheet with vba code

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

result of inserting the comment in protect sheet

ملاحظات:

1. يمكنك تعديل كلمة المرور الخاصة بك في xPW = “123456” من الكود أعلاه.

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


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

كيفية تصفية الخلايا ذات التعليقات في Excel؟

كيفية تجميع وإلغاء تجميع الصفوف في ورقة العمل المحمية؟

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات من خلال: التنفيذ الذكي |توليد الشيفرة |إنشاء الصيغ المخصصة |تحليل البيانات وتوليد الرسوم البيانية |استدعاء الوظائف المحسنة
الميزات الشائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو العنوان دون فقدان البيانات | تقريب ...
بحث متقدم: بحث V متعدد المعايير | بحث V متعدد القيم | بحث في عدة ورقات | مطابقة غامضة ....
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة تابعة | قائمة منسدلة متعددة الاختيار ....
إدارة الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاق والأعمدة ...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | أدوات المصنف & أدوات الورقة العمل | مكتبة النص التلقائي (Auto Text) | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب القائمة | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع من الرسوم البيانية (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

  • تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!