مساعدة فى حذف مربع يظهر عند فتح جميع ملفات اكسيل

[سعيد ابا]

السادة خبراء اكسيل اريد المساعدة فى حذف مربع يتم ظهوره عند فتح اى ملف للاكسيل 2010

المربع ظهر عند تطبيق كود يغلق ملف الاكسيل  بعد عدد معين من فتح ملف الاكسيل 

تم تطبيق الكود على ملف اكسيل فارغ وتم حذفه  ولكن الرسالة التى تظهر بعد انتهاء عدد مرات الملف مازالت تظهر لجميع ملفات الاكسيل 

هل من طريق لحذفها وشكرا 

الكود هو 

Private Sub Workbook_Open()
Dim Retvalue As String, GD As Integer
    Retvalue = GetSetting("A", "0", "Runcount")
    GD = Val(Retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD
    If GD > 10 Then ' الرقم (10) يحدد عدد مرات التشغيل
        MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
        ThisWorkbook.Close 0
    End If
    MsgBox GetSetting("A", "0", "Runcount")
End Sub
 

[ياسر خليل أبو البراء]

السلام عليكم أخي الكريم

إليك الملف التالي فيه شرح بالصور لما يجب القيام به للتخلص من المشكلة ..

 

لا تنسانا بدعوة بظهر الغيب

 

رابط الملف المرفق من هنا

[سعيد ابا]

السلام عليكم 

شكرا على سرعة الرد 

لكننى بعد الحذف من الريجيسترى يظهر مربع اخر يظهر به عدد مرات فتح املف مثلا1 

واذا تم الحذف من الريجيسترى يظهر مربع جديد برقم 2  وهكذا الى ان ينتهى عدد المرات الموجود بالكود مثلا 10 ثم يتم ظهور مربع بالرسالة مرة اخر ى

 

[ياسر خليل أبو البراء]

قم بحذف الكود الموجود في حدث فتح المصنف والذي أدرجته في المشاركة الأولى .. بعد حذف الريجستري كما هو موضح

[سعيد ابا]

ا / ياسر خليل ابو البراء 

لقد قمت بحذف الكود من ملف الاكسيل وحذف الريجيسترى 

ولم يظهر المربع عن فتح اى من ملفات اكسيل بحمد الله وبفضل توجيهات سيادتكم 

شكر مرة اخرى وندعو الله ان يحفظكم دائما 

[ياسر خليل أبو البراء]

بارك الله فيك ومشكور على دعائك الطيب

والحمد لله الذي بنعمته تتم الصالحات 

تقبل تحياتي