تحديد اعمدة لايمكن التعديل عليها

[matrix1040]

السلام عليكم 

عندي ملف اكسيل اريد تجميد التعديل على اول 3 اعمدة بحيث لايمكن التعديل عليهم مرفق ملف 

1.xlsx

[سليم حاصبيا]

لك ما تريد

لا احد يستطيع تحديد اي خلية في اول 3 أعمدة

 

Protect_3_columns.xlsm

[matrix1040]

بارك الله فيك 

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

وشكرااااااااا على مجهودك الرائع 

 

[ابو ايسل]

اخي سليم مجهود ممتاز لاكن طريقه Scroll Area لا تكون مفيده اذا كان عدد الاعمده كثيره مثلا لو روحت كتبت حاجه في العمود T لا تستطيع العوده للعمود B  الخاص باسماء الموظفين هل يوجد طريقه اخرى لحمايه اعمده معينه 

[سليم حاصبيا]

لم أفهم سؤالك جيداَ

يمكنك الذهاب الى اي خلية رقم عامودها اكبر من 3 

هناك طريقة ثانية بحماية الصفحة مع عدم السماح بالتحرير في هذه الثلاثة أعمدة

مثلاً

Sub Protct_Three_columns()
With Sheets("ورقة1")
.Unprotect
.ScrollArea = ""
.Cells.Locked = False
.Range("A3:c3").EntireColumn.Locked = True
.Protect
End With
End Sub

 

[matrix1040]

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

ثم عمل حماية على الخلايا او الاعمدة المراد حمايتها فقط ( locked ) من ثم عمل protect sheet  لها مثل الصور المرفقة 

[سليم حاصبيا]

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

[ابو ايسل]

مشكور اخي سليم و اخي ماتركس على الردود 

في طريقه protect sheet اللي قال عليها اخي ماتركس اعرفها لاكن اذا قمت بقفل الملف لا تعمل لدي الجروب لان الشيت لدي كبير و قمت بعمل جروبات لتقسيم الشيت 

بالنسبه للكود الخاص باخي سليم ممتاز