البحث في الموقع
Showing results for tags 'مساعدة فى حذف مربع يظهر عند فتح جميع ملفات اكسيل'.
تم العثور علي 1 نتيجه
-
السادة خبراء اكسيل اريد المساعدة فى حذف مربع يتم ظهوره عند فتح اى ملف للاكسيل 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
