قنديل الصياد قام بنشر يناير 21, 2015 مشاركة قام بنشر يناير 21, 2015 (معدل) 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 بواسطه قنديل الصياد رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 21, 2015 مشاركة قام بنشر يناير 21, 2015 اخى الكريم أ.قنديل ينقص سطر واحد فقط كما في المرفق 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 فلابد من فك الحماية قبل تنفيذ الكود ووضع الحماية بعد التنفيذ .. فكيف تريد حذف بيانات من خلايا محمية بكلمة مرور تحياتي رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 21, 2015 الكاتب مشاركة قام بنشر يناير 21, 2015 يقوم الكود بحذف الخلايا المؤمنة ايضا بعد اضافة هذا السطر ونريد ان لا تحذف المعادلات فى الخلايا المؤمنة رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر يناير 21, 2015 مشاركة قام بنشر يناير 21, 2015 يقوم الكود بحذف الخلايا المؤمنة ايضا بعد اضافة هذا السطر ونريد ان لا تحذف المعادلات فى الخلايا المؤمنة أستاذي الفاضل لم توضح حضرتك ذلك من البداية ... تفضل جرب الكود التالى 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 رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يناير 21, 2015 الكاتب مشاركة قام بنشر يناير 21, 2015 شكرا اخى العزيز تم التجربة والكود يعمل كما اردت شكرا جزيلا ... بارك الله فيك وعليك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.