كيف أحمي خلايا معينة من التغيير وجزاكم الله خيرا

[hicham2610]

السلام عليكم

من فضلكم

كيف أحمي مجال:D18:F86  من ورقة في ملف XLSM  به أكواد vba لكي لايكتب فيها المستخدم أو يغيرها 

لكن كود vba يشتغل على هذا المجال و دون قفل للورقة بكاملها لأن هناك خلايا أخرى يمكن للمستخدم التغيير فيها

وجزاكم الله خيرا

[hicham2610]

الإخوة الكرام

وجدت هذا الحل:

أضعه هنا تعميما للفائدة:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ict1 As Range
Set ict1 = Intersect(Target, Range("D18:F86"))
If ict1 Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End Sub

 

[صالح أبو أحمد]

لك كل الشكر والتقدير

[شعبان فليفل]

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

وكود مهم جداً

[شعبان فليفل]

برجاء المساعدة في هذا الكود 

حيث أنه لا يعمل بكفاءة إلا عند تعديل هذه الجزئية

Set ict1 = Intersect(Target, Range("D9:D50", "g9:g50", "r9:r50", "a3:r5"))

إلي 

et ict1 = Intersect(Target, Range("D9:D50"))

 

[mondawy]

السلام عليكم 

في هذه الحالة يوجد حل آخر بدون كتابة كود يعمل ام لا يعمل وهو كالتالي :

1- نقوم بعمل تحديد لكامل الشيت ( CTRL + A ) 

2- نضغط كليك يمين من الماوس ثم نختار ( Format Cells ) ثم ( Protection ) ونقوم بازالة العلامة من على ( Lock ) 

3- نقوم بتحديد المجال المطلوب حمايته من التعديل ثم نضغط كليك يمين من الماوس ثم نختار ( Format Cells ) ثم ( Protection ) ونقوم بوضع العلامة على ( Lock ) 

4- نذهب إلى ( Review ) ثم نختار ( Protect Sheet ) ونضع كلمة سر التي نريد وكذلك يمكن اختيار ما هو مسموح للمستخدم بعمله في هذا الملف وذلك بدون اقفال كامل الملف بكلمة سر 

وتقبلوا تحياتي 

 

* الشرح بالصور في المرفقات

Reply.rar

تم تعديل مارس 15, 2017 بواسطه mondawy

[hicham2610]

في 13/3/2017 at 14:53, شعبان فليفل said:

برجاء المساعدة في هذا الكود 

حيث أنه لا يعمل بكفاءة إلا عند تعديل هذه الجزئية

Set ict1 = Intersect(Target, Range("D9:D50", "g9:g50", "r9:r50", "a3:r5"))

إلي 

et ict1 = Intersect(Target, Range("D9:D50"))

 

السلام عليكم

جرب هذا:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ict1 As Range
Set ict1 = Intersect(Target, Range("A3:A5, D9:D50, G9:G50, R9:R50"))
If ict1 Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End Sub

 

[شعبان فليفل]

سلمت يداك 

الكود يعمل بكفاءة 

ربنا يجعله في ميزان حسناتك