ما الخطأ في هذا الكود

[قنديل الصياد]

Sub صورة9_نقر()
  Application.ScreenUpdating = False
  sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo)
      If sama = vbYes Then
      Range("g11:am1000").ClearContents
      Else
      MsgBox "!! لم يتم الحذف"
      End If
  Sheets("مستويات اول نصف العام").Protect Password:="1900"
  Application.ScreenUpdating = True

End Sub

Range("g11:am1000").ClearContents

يظهر سطر النطاق بلون أصفر عند تنفيذ الكود بالرغم من استخدام الكود فى صفحات اخرى وتم تنفيذه بدون اى أخطاء

فما الخطأ فى الكود فى هذه الصفحة

تم تعديل يناير 21, 2015 بواسطه قنديل الصياد

[ibn_egypt]

اخى الكريم أ.قنديل 

 

ينقص سطر واحد فقط كما في المرفق

Sheets("مستويات اول نصف العام").UnProtect Password:="1900"

ليصبح الكود بالكامل هكذا

Sub صورة9_نقر()
  Application.ScreenUpdating = False
  Sheets("مستويات اول نصف العام").UnProtect Password:="1900"
  sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo)
      If sama = vbYes Then
      Range("g11:am1000").ClearContents
      Else
      MsgBox "!! لم يتم الحذف"
      End If
  Sheets("مستويات اول نصف العام").Protect Password:="1900"
  Application.ScreenUpdating = True

End Sub

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

 

تحياتي  

[قنديل الصياد]

يقوم الكود بحذف الخلايا المؤمنة ايضا بعد اضافة هذا السطر

ونريد ان لا تحذف المعادلات فى الخلايا المؤمنة

[ibn_egypt]

يقوم الكود بحذف الخلايا المؤمنة ايضا بعد اضافة هذا السطر

ونريد ان لا تحذف المعادلات فى الخلايا المؤمنة

أستاذي الفاضل

 

لم توضح حضرتك ذلك من البداية ... تفضل جرب الكود التالى

Dim myrange As Range
Dim cell As Range
Dim ws As Worksheet

Application.ScreenUpdating = False
Set ws = ThisWorkbook.Sheets("مستويات اول نصف العام")

  sama = MsgBox("سيتم الغاء وحذف البيانات؟هل انت متأكد من اجراء هذه العملية", vbYesNo)
      If sama = vbYes Then
      Set myrange = ws.Range("g11:am1000")
          For Each cell In myrange
              If cell.Locked = False Then cell.ClearContents
          Next cell
      Else
      MsgBox "!! لم يتم الحذف"
      End If
  Application.ScreenUpdating = True

وتم ارفاق ملف للتوضيح .... باسورد فك الحماية 1900

 

تحياتي  

Clear.rar

[قنديل الصياد]

شكرا اخى العزيز

تم التجربة والكود يعمل كما اردت

شكرا جزيلا ... بارك الله فيك وعليك