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

[عبدالرحمن بدوى]

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

تحية طيبة وبعد أعضاء المنتدى الكرام

أريد مساعدتكم فى هذا الكود المرفق فى الملف

الكود يقوم بمسح نطاقات محددة فى شيتات مختلفة فى ملف الاكسل

ولكن االمشكلة هى انه لا يعمل أثناء حماية الشيت

الرجاء المساعدة اما باضافة للكود الحالى

أو بكود جديد

ولكم جزيل الشكر مقدما

12121.rar

[ياسر خليل أبو البراء]

أخي الكريم عبد الرحمن

تفضل الكود

 

Sub Clear()
    With Worksheets("Sheet1")
        .Unprotect 1
        .Range("date,time,results,tester").SpecialCells(xlCellTypeConstants).ClearContents
        .Protect 1
    End With

    With Worksheets("Sheet2")
        .Unprotect 1
        .Range("date1,time1,results1,tester1").SpecialCells(xlCellTypeConstants).ClearContents
        .Protect 1
    End With
End Sub

 

[عبدالرحمن بدوى]

جزاكم الله خيرا اخى الفاضل

تم حل المشكلة

هل يمكنك مساعدتى فى هذا الموضوع

 

[ياسر خليل أبو البراء]

أخي الكريم عبد الرحمن بدوي

الحمد لله أن تم المطلوب على خير وتم حل المشكلة

اعلم أخي أنني أطلع على كل الموضوعات تقريباً .. ولكن الوقت قد يسمح أحياناً بالتدخل أو قد لا يسمح

فأرى الموضوعات البسيطة والسهلة أو الممكن أن أتدخل فيها فأتدخل في الحال بدون أن أبخل عليكم

فالحمد لله الكل يعلم ذلك جيداً .. أنا أحرص الناس في حالة علمي بالموضوع على المشاركة فيه على الفور

[عبدالرحمن بدوى]

جزاكم الله خرا على مجهودك أخى الفاضل