[العيدروس]

السلام عليكم اخواني لو سمحتم اقوم بتصدير بيانات الدتاجريد الى شيت اكسل
اريد جعل عمود K من الاكسل محمي و لا يقبل التعديل كيف يتم ذلك لو تكرمتم
حاولت بهكذا كود لكن ما ضبطت worlsheet.columns("K:K").Hidden = True
بارك الله فيكم

[3sem]

(29-12-23, 01:57 PM)العيدروس كتب : السلام عليكم اخواني لو سمحتم اقوم بتصدير بيانات الدتاجريد الى شيت اكسل
اريد جعل عمود K من الاكسل محمي و لا يقبل التعديل كيف يتم ذلك لو تكرمتم
حاولت بهكذا كود لكن ما ضبطت worlsheet.columns("K:K").Hidden = True
بارك الله فيكم

جرب
worlsheet.Protect()
worlsheet.Range("A1:Z1000").Style.Locked = False
worlsheet.Range(worlsheet.Cells(1, "K"), worlsheet.Cells(65536, "K")).Locked = True

[العيدروس]

بارك الله فيك اخ 3sem
جزاك الله كل خير .. تم بالفعل حماية العمود

[HALIM ELEULMA]

كود :

' تحديد عمود K وحمايته في ورقة العمل
With Worksheet.Columns("K:K")
   .Locked = True ' قفل العمود
   .Hidden = True ' إخفاء العمود
   .ColumnWidth = 0 ' تحديد عرض العمود بصفر لإخفائه بشكل كامل
End With

' حماية ورقة العمل بكاملها لتفعيل الحماية
Worksheet.Protect("كلمة المرور")