مشكلة في حماية الورقة وتعديل كود .

[zoom10]

السلام عليكم ورحمة الله

وتقبل الله منا ومنكم صالح الأعمال وكل عام وأنتم بخير

 

برفقه ملف إكسل وقد قام أحد المشاركين في هذا المنتدى الرائع مشكورا بعمل كود أستطيع من خلاله وضع ( 0 ) في بعض الخلايا إذا لم يكن بها بيانات . ولكن المشكلة أن هذا الكود لا يعمل عند حماية الورقة .

 

 

الشرح وافي في الملف . أتمنى منكم المساعدة بارك الله فيكم .

aq.rar

[رعد داود]

هذه  تجربة  للأستاذ  هادي  وجدتها  في  هذا  المنتدى  الرائع

وأرفق  ملف  لذلك

تضع  كود  حماية  الورقه  وفك  الحماية قبل  كود  الترحيل  الذي  أنت  تعمله

protect.rar

[رعد داود]

http://www.officena.net/ib/index.php?showtopic=28478&hl=%2B%D8%AD%D9%85%D8%A7%D9%8A%D8%A9+%2B%D9%88%D8%B1%D9%82%D9%87#entry138212

 

وهذا  رابط  المشاركة  على  العموم  ممكن  تستفيد  منه

[zoom10]

شكرا لكم . ولكن ليس هذا ماقصدته . لم أقصد ترحيل البيانات . ولا حتى كود للحماية .

 

كل ما أريد أن الخلايا B1 إلى B17 تعطيني القيمة ( 0 ) عند خلوها من البيانات في حال كان المستند محمي فقط .

 

وشكرا لكم

[zoom10]

-----------up-----------

[الـعيدروس]

السلام عليكم

 

كما تفضل اخونا رعد

شرحك في الملف تريد

تنفيذ الكود سواء الورقة محمية او غير محميه

Private Sub Worksheet_Change(ByVal Tr As Range)
On Error Resume Next
Set Rn = [B1:B17]
If Not Rn Is Nothing Then
Sheet1.Unprotect "123"
Rn.SpecialCells(4)(1).Value = "0"
Sheet1.Protect "123"
End If
End Sub

[zoom10]

بارك الله فيك أخي عباد . هو ما أريد . الله لايحرمك الأجر والثواب .