حذف محتويات الخلايا المؤمنة

تمت ترجمة هذه الاستجابة تلقائيا. ونتيجة لذلك، قد تكون هناك أخطاء نحوية أو صيغ غريبة.

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

ربما هناك سوء فهم بسبب الترجمة
قمت بحماية الخلايا عن طريق تحديد الخلايا ثم كليك يمين و اخترت تنسيق الخلايا و في تبويبة حماية قمت بتحديد (تم تأمينها) كما في الصورة ادناه

أما كود VBA هو كود تعطيل عمل زر DELETE في الكيبورد
_________________________________________________________________
Private Sub Workbook_Open()

Application.OnKey "{DELETE}", "DisableDELKey" 

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.OnKey "{DELETE}" 

End Sub

Sub DisableDELKey()

'Do NOTHING

End Sub

_______________________________________________________________

و عن طريق الصدفة اكتشفت ان سبب المشكلة هو (السماح بتحرير النطاقات) الموضح في الصورة

و وجدت انني اضفت بعض الخلايا من العمود A و بالتالي يسمح إكسيل بتعديلها و حذف محتواها
و الان تم حل المشكلة

شكرا على حسن تعاونك و ردك الطيب
تحياتي لك

تمت ترجمة هذه الاستجابة تلقائيا. ونتيجة لذلك، قد تكون هناك أخطاء نحوية أو صيغ غريبة.

مرحبا أحمد فتح الرحمن,

شكرا لمشاركتك في مجتمع مايكروسوفت.

هل يمكنك مشاركة الطريقة التي استخدمتها في رمز VBA الخاص بك لقفل الخلايا المحددة؟ 

حاولت قفل الخلية A1 باستخدام الكود التالي:

sheet.Range("A1").Locked = True

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

بمعنى آخر ، لم نتمكن من تكرار موقفك. يرجى مشاركة المزيد من السياق حول رمز VBA الخاص بك أو تقديم لقطة شاشة. 

آمل أن تكون المعلومات الواردة أعلاه مفيدة لك ، وأتطلع إلى ردك!

مع خالص تحياتي

توماس سي - MSFT | أخصائي دعم مجتمع مايكروسوفت