أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





تعديل كود حماية خلايا معينة من الحذف

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



28-06-2020 01:15 مساء
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 


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


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Range("a1:w1")) Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End If

End Sub

28-06-2020 03:27 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif تعديل كود حماية خلايا معينة من الحذف
TRY tHIS fILE

Private Sub Workbook_SheetSelectionChange _
 (ByVal Sh As Object, ByVal Target As Range)
 
 Application.EnableEvents = False

If Sh.Name <> "Sheet3" Then

 If Not Application.Intersect(Target, _
      Range("A1:W1")) Is Nothing Then _
      Target.Offset(2).Select: GoTo End_Me
 
Else
    If Not Application.Intersect(Target, _
      Range("A1:A100")) Is Nothing Then _
      Target.Offset(, 2).Select: GoTo End_Me
 
End If

End_Me:
 Application.EnableEvents = True
End Sub

 
 
 
  No_Spec_range.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(25.167) KB


28-06-2020 04:50 مساء
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تعديل كود حماية خلايا معينة من الحذف
يعجز لسانى عن شكرك وتعجز الكلمات عن اعطاءك حقك استاذى 
ولا يكف لسانى عن الدعاء لحضرتك
من عيوب هذا الكود لا استطيع الوقوف على راس العمود لمعرفة المجموع 
بينما الكود الاول يمنع المسح بان يعمل undo بس اقف على راس العمود واعرف مجموع كل عمود
ارجوا من حضرتك اافة فقرة استثناء صفحةsheet 3  الى الكود المرفق 
مع شكرى الجزيل لشخصك المحترم جدا استاذ سليم الكريم
 
 
 
  حماية من المسح.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(12.234) KB


28-06-2020 09:56 مساء
مشاهدة مشاركة منفردة [3]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تعديل كود حماية خلايا معينة من الحذف
حاولت فيه ونجح  جزئيا جزء الحمد لله  جزء ان شيت3 محمى  النطاق من a1:a100
بس احتاج تعديل عدم حماية شيت3 من a1:w1
اردت وضعه لمن يحتاجه شكرا استاذى سليم بارك الله فيك وبك ولك
وهذا الكود لمن يحتاجه
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 

If Sh.Name <> "Sheet3" Then

    If Not Application.Intersect(Target, Range("a1:w1")) Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End If
Else
    If Not Application.Intersect(Target, _
      Range("A1:A100")) Is Nothing Then _
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End If

End Sub





الكلمات الدلالية
تعديل ، حماية ، خلايا ، معينة ، الحذف ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:42 صباحا