اين الخطأ فى كود حذف بيانات شيتات

[abouelhassan]

الاساتذة

اريد معرفة اين الخطأ فى كود حذف كافة البيانات فى النطاق من 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

[سليم حاصبيا]

تصحيح الكود

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

 

[abouelhassan]

تسلم ايدك استاذى ربنا يرضى عنك 

الكود ممتاز ربنا يحفظك اللهم امين

كل الشكر والتقدير والاحترام من اخيك