كود صغير جدا و لكن مفيد جدا_protect with copy_كود حماية عمل مع نسخ و لصق نطاق لنفس الشيت

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة    

 

تم ارفاق كود الحل من الفاضل _ ا /  ابو اسامة العينبوسي

Sub_copyprotect()
ActiveSheet.Unprotect
ActiveSheet.Range("e4:f503").Value = ActiveSheet.Range("b4:c503").Value
ActiveSheet.Protect
End Sub

و عن طريق تسمية نطاق
 

Sub_copyprotect()
ActiveSheet.Unprotect
ActiveSheet.Range("omar2").Value = ActiveSheet.Range("omar").Value
ActiveSheet.Protect
End Sub

مرفق الملف

 

6564.rar

 

 و لا تنسونا من صالح الدعاء

تحياتى