ملف أكسل لا يفتح بسبب خطأ في كود الفورم

[مجاهد2013]

السلام عليكم إخوتي 

أنا شغال على ملف أكسل ينفتح على فورم ، قمت بإضافات للفورم و الظاهر أنيي أخطأت في الكود لذلك أصبح الملف لا يفتح فهل من طريقة لإصلاح الخلل و إعادة فتح الملف و شكرا مسبقا...

الملف يفتح على فورم به التاريخ بالميلادي و الهجري أضفت له التوقيت و أدخلت الكود التالي:

Do

Label12.caption=time

DoEvents

Loop                 ربما الكود به خطأ

417394589_-Copie.xlsm

[عبدالفتاح في بي اكسيل]

امسح الكود  الخاص  بك  وجرب  هذا  الشيء في  موديول  اليوزرفورم

Option Explicit

Dim stopLoop As Boolean

Private Sub UserForm_Activate()
    Do
        Label12.Caption =  Format(Now, "hh:mm:ss")
        DoEvents
    Loop Until stopLoop
End Sub

Private Sub UserForm_Terminate()
    stopLoop = True
End Sub

 

[أحمد يوسف]

أحسنت استاذ عبد الفتاح فالملف يعمل بكل كفاءة وشوف بنفسك مجاهد2013 وهذه صورة بعد فتح الملف للتأكيد وبكده يجب غلق المشاركة

1402041816_-Copie.rar

[مجاهد2013]

الف ألف شكر لكل  الأساتذة على المساعدة القيمة ..تحياتي