كود لحماية نطاق دون حماية ورقة العمل لكامل المستند

[omhamzh]

اخواتى الافاضل

محتاجة كود يعمل على حماية النطاق من a1 :j4 من الحذف او التعديل دون حماية ورقة العمل

بحيث يتم وضعه فى الحدث thisworkbook

مع خالص الشكر

وخالص الدعاء

[سليم حاصبيا]

ممكن تجربة هذا الملف

 

Prevent Type in non_empty.xlsm

[omhamzh]

رائعة من روائعك  بس انا محتاجة حماية من اى كتابة او تعديل لهذا النطاق فى كامل الملف

حضرتك على راسى والله انعم الله عليك بكل خيراته لخيرك الكثير علينا اكثر الله خيرك

اختك

حماية نطاق دون حماية الورقة.xlsm

[عبدالفتاح في بي اكسيل]

بعد  اذن  استاد  سليم  جربي  هذا   الملف 

 

حماية اعمدة محددة بالكود‬.xls

[عبدالفتاح في بي اكسيل]

اختي  الكريمة   الكود  يقوم  بحماية  الاعمدة  a,b,c  فقط  دون   حماية  الورقة  يمكنك  الكتابة    في   الاعمدة  الاخرى  دون  مشاكل 

[سليم حاصبيا]

لكن طريقة حماية الصفخة نخسرنا الكثير من مميزات اكسل

[omhamzh]

لو نظرت اخى فى قائمة ريفيو ستجد unprotect

احتاج منع التغير او الحذف فقط فى هذا النطاق دون حماية اى جزء فى الشيت 

اشكر تكرمك بالمشاركة استاذى

صح اخى سليم هذا ما اردت توضيحه للاستاذ عبدالفتاح اشكرك لتكرمك بالتوضيح

استاذ كبير استاذ سليم 

[سليم حاصبيا]

جربي هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:j4")) Is Nothing Then _
Range("a5").Select
End Sub

الملف مرفق

Protect_without_Protect.xlsm

[omhamzh]

تمام جدا عايزة اضعه فى حدث thisworkbook

اشكرك ربى يكرمك ويسعدك

اختك