abouelhassan قام بنشر يونيو 12, 2020 مشاركة قام بنشر يونيو 12, 2020 الاساتذة اريد معرفة اين الخطأ فى كود حذف كافة البيانات فى النطاق من a4:j10000 لكافة الشيتات ماعدا ثلاث شيتات data &datab&datac بعد كتابة الباسورد فجأة الكود وقف مع انه كان يعمل واصبح يمسح اول صفحة فقط Sub DelAll() x = InputBox("إدخل الرقم السري لمسح البيانات", "كلمة سر مسح كافة البيانات") If x = "0" Then Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets If ws.Name <> "data" And ws.Name <> "datab" And ws.Name <> "datac" Then Range("A5:J10000").ClearContents End If With ws On Error Resume Next On Error GoTo 0 End With Next ws Application.ScreenUpdating = True Else MsgBox " غير مسموح لك بمسح البيانات", vbCritical, "تنبيه": Exit Sub End If End Sub مع خالص احترامى وتقديرى كود مسح كافات البيانات.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يونيو 13, 2020 أفضل إجابة مشاركة قام بنشر يونيو 13, 2020 تصحيح الكود Sub DelAll() x = InputBox("إدخل الرقم السري لمسح البيانات", _ "كلمة سر مسح كافة البيانات") If x = "22" Then Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With ws If .Name = "data" Or _ .Name = "datab" Or _ .Name = "datac" Then Else .Range("A5:J50000").ClearContents End If End With Next ws Else MsgBox " غير مسموح لك بمسح البيانات", _ vbCritical, "تنبيه" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 13, 2020 الكاتب مشاركة قام بنشر يونيو 13, 2020 تسلم ايدك استاذى ربنا يرضى عنك الكود ممتاز ربنا يحفظك اللهم امين كل الشكر والتقدير والاحترام من اخيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان