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

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


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





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

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


موضوع مغلق


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

الاخوة اساتذة المنتدى
احتاج ضبط هذا الكود الذى يمنع التغير فى نطاق معين من اوراق العمل ككل واستثناء 5 صفحات من التنفيذ
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



أفضل إجابة مقدمة من hassona229 وهي:
يمكنك تجربة هذا التعديل


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
عرض الإجابة




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


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

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

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


الحمد لله الذي بنعمته تتم الصالحات 


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

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




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


 










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

الساعة الآن 06:41 صباحا