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

[abouelhassan]

الاساتذة الافاضل

لدى هذا الكود الذى يمنع اى تغير لخلايا معينة

اريد تعديل الكود لاستثناء شيت3 ويصبح نطاق الحماية فى شيت 3 بس من a1 الى a1000

بمعنى احتاج اضافة الى الكود

استثناء الصفحة sheet3 وجعل نطاق الحماية من a1:a3 فيها اما باقى الشيتس من a1:w1 كما هى

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

 

حماية خلايا من التغير واستثناء صفحة.xlsm

[أ / محمد صالح]

مرحبا بك أستاذ @abouelhassan

يمكنك استعمال الوسيطة الأولى sh والتي تعني كائن الشيت الحالي في الشرط ليصبح الكود كالتالي:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.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:w1")) Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End If
End If
End Sub

لاحظ استعمال sheet3 وهو اسم الشيت المطلوب استثناؤه

خالص دعواتي بالتوفيق

 

[abouelhassan]

أ / محمد صالح

شكر وتقدير وخالص الدعاء لحضرتك فعلا الكود يعمل تمام سلمت يمينك

بارك الله فيك

احترامى اخيك