كود حذف البيانات الغير محميه داخل نطاق

[أيهاب ممدوح]

الساده الافاضل الاصدقاء والاخوة الاعزاء

ارجوا من سيادتكم معرفه كود يقوم بمسح البيانات من الخلايا الغير محميه بكلمه سر ويترك الخلايا الذي تكون محميه بكلمه سر وذلك داخل نطاق معين داخل شيت معين

مرفق ملف للتوضيححذف البيانات.rar

شكرا للجميع

تم تعديل يوليو 10, 2012 بواسطه ايهاب ممدوح

[رجب جاويش]

تفضل أخى

Sub ragab()

On Error Resume Next

    ActiveSheet.Range("D2:N23").Value = vbNullString

End Sub

حذف البيانات.rar

[رجب جاويش]

وهذا كود آخر

Sub ragab()

Dim cl As Range

Application.ScreenUpdating = False

For Each cl In [d2:n23]

If cl.Locked = False Then cl.ClearContents

Next cl

Application.ScreenUpdating = True

End Sub

حذف البيانات1.rar

[أيهاب ممدوح]

شكرا جزيلا اخي في الله استاذ رجب جاويش

شكرا للمنتدي العظيم

[رجب جاويش]

لا شكر على واجب أخى الفاضل

هذا واجبنا تجاه هذا المنتدى العظيم

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل رجب جاويش حفظك الله وأكرم منزلك في الجنة

جزاك الله كل خير وأعانك على فعل الخيرات وأدام عليك الصحة والعافية.

أبو أنس ناصر حاجب

[أيهاب ممدوح]

الاخ رجب والاخوة الكرام

If cl.Locked = False Then cl.ClearContents

ارجو من الاخ رجب او الاخوة الكرام شرح هذا الجزئيه لانه عند نقل الكود الي ملف اخر يعطي خطأ

شكرا