بحث مخصص من جوجل فى أوفيسنا

Custom Search

كود صغير جدا و لكن مفيد جدا_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

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

تحياتى

You can post now and register later. If you have an account, sign in now to post with your account.

اضف رد علي هذا الموضوع....

Only 75 emoji are allowed.

× Your link has been automatically embedded. Display as a link instead

× Your previous content has been restored. Clear editor

× You cannot paste images directly. Upload or insert images from URL.

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان
- لايوجد اعضاء مسجلون يتصفحون هذه الصفحه