logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
michel Sadek ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
06-07-2020 04:19 مساءً
الاخوة اساتذة المنتدى
احتاج ضبط هذا الكود الذى يمنع التغير فى نطاق معين من اوراق العمل ككل واستثناء 5 صفحات من التنفيذ
CODE
Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i%

   For i = 5 To Sheets.Count
         If Sheets(i).Name <> "sheet3" Then

If Not Application.Intersect(Target, Range("a1:a1000")) Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End If
Else
If Not Application.Intersect(Target, Range("a1:j5")) Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
       Next i
End With

End If
End If
End Sub


مع الكل الاحترام والتقدير
 
 
  منع التغير فى الخلايا واستثناء عدد5 صفحات.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(22.884) KB





look/images/icons/i1.gif منع التغير فى الخلايا واستثناء عدد5 صفحات
  26-08-2020 03:33 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
يمكنك تجربة هذا التعديل

CODE

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i%
     
If Sh.Name <> "Sheet1" And Sh.Name <> "Sheet2" And Sh.Name <> "Sheet3" And Sh.Name <> "Sheet4" And Sh.Name <> "Sheet5" Then
         

    If Not Application.Intersect(Target, Range("a1:a1000")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
Else
If Not Application.Intersect(Target, Range("a1:j5")) Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
       
End If
End If

End Sub

أثارت هذه المشاركة إعجاب: هانى على، YasserKhalil، abouelhassan، ابو طيبه،



look/images/icons/i1.gif منع التغير فى الخلايا واستثناء عدد5 صفحات
  28-08-2020 06:03 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس :
قوة السمعة : 423
الاعجاب : 3
بارك الله فيك استاذنا الكريم مشكور

أثارت هذه المشاركة إعجاب: hassona229، YasserKhalil،



look/images/icons/i1.gif منع التغير فى الخلايا واستثناء عدد5 صفحات
  29-08-2020 01:43 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
وفيك بارك اخي ابو الحسن
الحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: abouelhassan، YasserKhalil،



look/images/icons/i1.gif منع التغير فى الخلايا واستثناء عدد5 صفحات
  31-08-2020 03:26 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
الله ينور يا مسيو ، سايب ورايا رجالة تاكل الزلط :)

أثارت هذه المشاركة إعجاب: omhamzh، hassona229، abouelhassan،



look/images/icons/i1.gif منع التغير فى الخلايا واستثناء عدد5 صفحات
  31-08-2020 05:16 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
تسلم لي ابو البراء الغالي ان شاء الله في ميزان حسناتك

أثارت هذه المشاركة إعجاب: YasserKhalil، abouelhassan،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعرف على حدث التغير في ورقة العمل Worksheet Change YasserKhalil
9 1679 YasserKhalil

الكلمات الدلالية
التغير ، الخلايا ، واستثناء ، عدد5 ، صفحات ،









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

الساعة الآن 12:57 PM