كود جعل الاكسيل نسخة demo بوقت محدد

[محمد مصطفى ابو حمزة]

كود جعل الاكسيل نسخة demo بوقت محدد

Sub Auto_Open()

    Dim exdate As Date

    exdate = "04/30/2011"

    If Date > exdate Then

	    MsgBox ("لقد استخدمت البرنامج للمدة القصوى =منتدى اوفيسنا")

	    ActiveWorkbook.Close

    End If

    MsgBox ("تبقى لك " & exdate - Date & "Days left")

End Sub

بالطبع يوضع فى حدث فتح ال workbook

[الـعيدروس]

السلام عليكم

جزاك الله خير على هذا الكود الجميل

معلومه بسيطه بعد اذنك

في وضعه الحالي يوضع في مودويل

مرمزAuto_Open

يعني يعمل الكود دايركت عند فتح المصنف

تم تعديل مارس 19, 2012 بواسطه alidroos

[محمد مصطفى ابو حمزة]

وهل استطيع ان اعدل على استاذ بالطبع كلام حضرتك صح

[محمد يحياوي]

من باب الزيادة واثراء الموضوع هذا ملف تجريبي تنتهي صلاحيته بعد 30 يوم من اول استعمال

ملف تجريبي تنتهي صلاحيته بعد 30 يوم من اول استعمال.rar