Note: The other languages of the website are Google-translated. Back to English

كيفية منع حذف محتويات خلية معينة في Excel؟

تتحدث هذه المقالة عن منع حذف محتويات خلية معينة في Excel. يمكنك تحقيق ذلك بالطرق الموجودة في هذه المقالة.

منع حذف محتويات خلية معينة من خلال حماية ورقة العمل
منع حذف محتويات خلية معينة باستخدام التعليمات البرمجية لـ VBA


منع حذف محتويات خلية معينة من خلال حماية ورقة العمل

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

1. انقر فوق في الزاوية اليسرى العلوية من ورقة العمل لتحديد ورقة العمل بأكملها. ثم اضغط CTRL + 1 مفاتيح لفتح تنسيق الخلايا صندوق المحادثة.

2. في ظهرت تنسيق الخلايا مربع الحوار ، قم بإلغاء تحديد مقفل الخيار تحت حماية ثم انقر فوق OK زر. انظر لقطة الشاشة:

3. حدد الخلايا التي لا تريد حذف محتوياتها ، اضغط CTRL + 1 لفتح ملف تنسيق الخلايا مربع الحوار مرة أخرى ، تحقق من مقفل الخيار تحت حماية ثم انقر فوق OK .

4. انقر الآن التقيم > حماية ورقة، ثم حدد كلمة المرور وقم بتأكيدها في كلا الملفين حماية ورقة و تأكيد كلمة السر مربعات الحوار.

الآن ورقة العمل محمية. ولن يتم حذف محتويات الخلية المحددة بعد الآن.


منع حذف محتويات خلية معينة باستخدام التعليمات البرمجية لـ VBA

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

1. افتح ورقة العمل التي تحتوي على محتويات الخلية التي لا تريد حذفها ، وانقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

2. انسخ والصق رمز فبا أدناه في نافذة التعليمات البرمجية الخاصة ببرنامج ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

كود فبا: منع حذف محتويات خلية معينة في إكسيل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

ملاحظة: في الكود ، A1: E17 هو النطاق الذي ستمنعه ​​محتويات الخلية من الحذف. يمكنك تغيير النطاق بناءً على احتياجاتك.

من الآن فصاعدًا ، عندما تحاول حذف محتويات الخلية من النطاق A1: E17 ، ستحصل على ملف كوتولس ل إكسيل مربع الحوار كما هو موضح أدناه لقطة الشاشة ، يرجى النقر فوق OK .


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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (17)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فقط ما كنت أبحث عنه ، شكرًا على المساعدة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا تقلق دائما هنا للمساعدة :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هناك،

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

هل سيكون لديك تعديل على البرنامج النصي بحيث يقبل البيانات الموجودة في الخلية القابلة للتحرير عندما تقوم بالتبويب إلى غير قابل للتحرير؟

هتاف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
حاولت كما ذكرت في حالتك ، لكن لا يوجد خطأ. هل ستقدم لقطة شاشة لحالتك أو تخبرني بإصدار Office الخاص بك؟
شكرا لتعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت لا تريد أن تنظر إلى الورقة الخاصة بك أو تكتب رمز VBA ، فأنا أستخدم أسلوبًا بسيطًا يمنع من أي تجاوز باستثناء استخدام مفتاح "DELETE" (لن يُسمح بالمسافة للخلف ، ولكن من الصعب إيقاف الحذف ). ما فعلته هو إضافة التحقق من صحة البيانات بالإعدادات التالية:

1) سماح -> قائمة

2) قم بإلغاء تحديد "تجاهل الفراغ" و "القائمة المنسدلة في الخلية"

3) في المصدر ، أدخل علامتي اقتباس مزدوجتين (على سبيل المثال ، "")

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

هل هناك تعليمات برمجية لـ VBA لمنع تعديل وحذف محتويات خلية معينة في Excel؟
لا تعمل ورقة الحماية المعتادة بالنسبة لي لأنني أفقد القدرة على فرز البيانات؟

شكرا مقدما - نيل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
"منع حذف محتويات خلية معينة من خلال حماية ورقة العمل" لقد فعلت ذلك وفقًا للإرشادات الخاصة بك ، يمكن حذف معلومات الخلية الثابتة ، أي أن الحماية لا تعمل. اي حل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا احسان
هل قمت بتطبيق طريقة VBA؟
تحتاج إلى إضافة VBA إلى نافذة كود ورقة العمل. لنفترض أن محتويات الخلية التي تريد حمايتها موجودة في الورقة 9 ، يرجى النقر بزر الماوس الأيمن فوق علامة تبويب الورقة وتحديد عرض الرمز من قائمة السياق ، ثم نسخ الرمز مباشرةً في نافذة الكود كما هو موضح في الصورة أدناه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، يعمل هذا الرمز جيدًا ، ولكن حذف الصف / العمود سيتجاوزه. هل هناك أي حل لهذا؟ في صحتك يا ديفيد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديفيد،
ما هو إصدار Excel الذي تستخدمه؟ لقد جربت الكود ، ولا يمكن حذف الصفوف والأعمدة بأكملها في النطاق المحدد بعد تطبيق الكود.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا علي المعلومة القيمة.
بخصوص VBA أدناه:
ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا تقاطع (الهدف ، النطاق ("A1: E7")) لا شيء ، ثم اخرج من المنطقة الفرعية
عند الخطأ ، انتقل إلى ExitPoint
Application.EnableEvents = خطأ
إذا لم يكن التاريخ (الهدف (1)) إذن
التطبيق
MsgBox "لا يمكنك حذف محتويات الخلية من هذا النطاق" _
، vbCritical ، "Kutools for Excel"
إنهاء حالة
ExitPoint:
Application.EnableEvents = صحيح
نهاية الفرعية

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

ورقة عمل فرعية خاصة تغيير (هدف ByVal كنطاق)
إذا تقاطع (الهدف ، النطاق ("A1: M7000")) لا شيء ، ثم اخرج من المنطقة الفرعية
عند الخطأ ، انتقل إلى ExitPoint
Application.EnableEvents = خطأ
إذا لم يكن التاريخ (الهدف (1)) إذن
التطبيق
MsgBox "لا يمكنك حذف محتويات الخلية من هذا النطاق" _
، vbCritical ، "Kutools for Excel"
إنهاء حالة
ExitPoint:
Application.EnableEvents = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جيلو ,
هل تقصد منع حذف النطاق "A1: M7000" في كافة أوراق العمل الخاصة بالمصنف الحالي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا ، قصدت عدم السماح بالحذف (بدون حماية wks أو wkb).

إنه لأمر لطيف الأعمال المذكورة أعلاه على مستوى الأسابيع.

إذا كان هناك شيء ما يجعله يعمل على مستوى wkb فسيكون أفضل (لدي العديد من الأوراق)

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

أندرو س.
تقييم شنومك من شنومكس
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL