انتقل إلى المحتوى الرئيسي

كيفية قفل الخلايا المحددة دون حماية ورقة العمل بأكملها في إكسيل؟

المؤلف: سيلفيا آخر تعديل: 2020-06-19

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

تأمين الخلايا المحددة دون حماية ورقة العمل بأكملها باستخدام VBA


تأمين الخلايا المحددة دون حماية ورقة العمل بأكملها باستخدام VBA

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

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

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

رمز فبا: تأمين الخلايا المحددة دون حماية ورقة العمل بأكملها

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
        End If
    End If
End Sub

ملاحظات: في الكود ، عمود 1, الصف = شنومكس و الصف = شنومكس الإشارة إلى أنه سيتم تأمين الخلية A3 و A5 في ورقة العمل الحالية بعد تشغيل الكود. يمكنك تغييرها كما تريد.

3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

تم الآن تأمين الخلية A3 و A5 في ورقة العمل الحالية. إذا حاولت تحديد الخلية A3 أو A5 في ورقة العمل الحالية ، فسيتم نقل المؤشر إلى الخلية المجاورة اليمنى تلقائيًا.


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

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way for this VBA code to run automatically every time someone opens the file?
This comment was minimized by the moderator on the site
Hi Aaron,After adding the code, please save the workbook as an Excel Macro-Enabled Workbook (click File > Save As > specify a folder for the file > choose Excel Macro-Enabled Workbook from the Save as type drop-down list > Save). After that, every time when you open the file, the code works automatically.
This comment was minimized by the moderator on the site
I have try cannot, Hide formula without protecting.
This comment was minimized by the moderator on the site
Hi,

I have tried to use the code for ranges you have previously posted but it isn't working - can you advise me if I should be combining the code for ranges above or below?


Thanks
This comment was minimized by the moderator on the site
Hello,

I used the code provided to Carlos and it did exactly what I wanted it to. Is there a way to have some ranges offset within the ROW to the right of the protected range (as the "Carlos" code already does), but have other ranges offset within the COLUMN to the cell directly below the protected range? I tried entering the "Carlos" code twice and changing the offset, but I received a variety of errors.

Thank you
This comment was minimized by the moderator on the site
Hi Charlie,
Sorry can't help you with that yet. Thank you for your comment.
This comment was minimized by the moderator on the site
Is there any function to set for example Row 2 cell 13 to 900? Or do i need to manually punch each cell name in the code?
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations