كود مسح محتوى الخلايا الغير محميه فقط

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

 

الاخوة الافاضل  والساده الكرام

 

ارجو المساعده في عمل كود مسح محتوى الخلايا الغير محميه فقط

 

من النطاق  H3 الى NV202

 

حيث يوجد خلايا محميه داخل النطاق المحدد 

وقبل التنفيذ يتم التاكد من الحذف عن طريف كلمة سر  ولتكن 219219

 

 

جزاكم الله كل الخير والتقدير

 

 

 

 

 

Sub delete_Or()

 

Application.ScreenUpdating = False

 

 On Error Resume Next

 

Range("H3:NV202").Select

 

     Selection.ClearContents

 

    ActiveWindow.SmallScroll Down:=-72

 

    Range("E1").Select

 

Application.ScreenUpdating = True

 

    End Sub

 

 

 

تم تعديل أبريل 11, 2016 بواسطه ۩◊۩ أبو حنين ۩◊۩

[أبو حنــــين]

السلام عليكم

جرب هذه الطريقة

 

Private Sub CommandButton1_Click()

Dim cl As Range
For Each cl In Range("H3").CurrentRegion
If cl.Locked = False Then cl.ClearContents
Next

End Sub

 

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الكريم 

النطاق من   H3 الى NV202

حيث يوجد خلايا محميه داخل النطاق

مرفق الملف

Book1.rar

[أبو حنــــين]

ها هو الملف

 

Book11.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الكريم تم الامر بشكل سليم جزاك الله حيرا 

ولاكن هل يمكن عمله من خلال كود وليس CommandButton1

جزاك الله خيرا على وقتك ومجهودك 

[أبو حنــــين]

لم افهم المقصود

و لاكن يمكن ادراج موديل ثم ربطه بزر او بشرط معين مع تغيير بسيط في السطر :

Private Sub CommandButton1_Click()

حيث يصبح باي بشكل آخر مثل :

Sub Clear()

 

تم تعديل أبريل 11, 2016 بواسطه أخوكم في الله

[۩◊۩ أبو حنين ۩◊۩]

الاخ الكريم 

عند عمل الكود بهذا الشكل وتنفيزة 

يتم ظهور خطاء يتم تلوبنه بالون الاصفر وهو السكر الثالث

()Sub Clear
Dim cl As Range
("For Each cl In Range("sRng") '  sRng = Range("H3:NV202
If cl.Locked = False Then cl.ClearContents
Next
End Sub

[أبو حنــــين]

غير فقط النطاق المسمى sRng  الى النطاق   (" Range("H3:NV202

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

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

سلمت يداك بكل خير