اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


hicham2610

الردود الموصى بها

السلام عليكم

من فضلكم

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

  • Like 3
رابط هذا التعليق
شارك

  • 2 weeks later...

السلام عليكم 

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

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

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

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

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

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

 

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

Reply.rar

تم تعديل بواسطه mondawy
رابط هذا التعليق
شارك

في 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

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information