مطلوب تعديل كود

[ehabaf2]

السلام عليكم الاساتذة الافاضل

كنت بسئل هل ممكن عمل كود VBA عند تنفيذه يتم غلق الخلايا فى النطاق من العمود B السطر رقم1 حتى السطر رقم 653 فى العمود النشط يعني العمود اللى فيه الخلية النشطة

ارجو ان اكون قدرت اعبر عن المطلوب

كود قفل نطاق محدد.xlsx

[أبومروان]

وعليكم السلام ورحمه الله

جرب الكود التالي لعله المطلوب

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'تحديد الخلية النشطة
    Dim sel_r As Integer, sel_c As Integer
    sel_r = ActiveCell.Row
    sel_c = ActiveCell.Column
    
    'حماية الشيت و فتح الخلايا من B1 إلى صف 653 في نفس العمود النشط
    ActiveSheet.Unprotect
    If sel_c = Range("B1").Column And sel_r <= 653 And sel_r >= Range("B1").Row Then
        ActiveSheet.Protect
        MsgBox "هذه الخلية محمية"
    Else
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

 

[ehabaf2]

السلام عليكم

اعتزر جدا جدا للتاخر فى الرد لظروفى سفرى

الاستاذ الفاضل @كريم نظيم

الكود لا يعمل مجرد وضع الكود الشيت يغلق 

ارجو من حضرتك ان تجرب الكود على الشيت المرفق للتاكد منه

 

من لم يشكر الناس لا يشكر الله

اتقدم بالشكر لجميع اعضاء الجروب و اخص السادة الخبراء و الاعضاء اللذين يقدمون الحلول و الاجابه على اسئلتنا

و اشهد الله اننى قد استفد فى شغلى كتيرا جدا جدا من الجروب و بالفعل حل جميع المشاكل التى تواجهني

اكرر شكري لحضراتكم