تاريخ نهاية صلاحية لملف اكسل

[hamizic]

هل يمكن وضع تاريخ نهاية صلاحية لملف أكسل

[عبدالله المجرب]

جرب هذا الكود

Private Sub Workbook_Open()

If Date > DateValue("2/1/2012") Then

Application.Visible = False

MsgBox "صلاحية هذا الملف انتهت "

ThisWorkbook.Close

End If

End Sub

سينتهي هذا الملف بتاريخ 3/1/2012

[abouelhassan]

روائع ولؤلؤ استاذنا العبقرى

عبدالله المجرب(ابواحمد)

كل احترامى وتقديرى

بارك الله فيك ولك وبك

[hamizic]

لم تفلح معي هذه الطريقة

أو أنني لم اجد استعمالها

ساعدني يا أستاذنا من فضلك

[عبدالله المجرب]

السلام عليكم

جرب المرفق

انتهاء الملف.rar

[hamizic]

لكن المرفق لا يفتح أخي الكريم

[abouelhassan]

اخى اخر تاريخ الكمبيوتر الى 31/12

وسوف يفتح معك

احترامى

[hamizic]

شكرا لكما يا أستاذي عبد الله وابو الحسن

[منذر2000]

السلام عليكم

تحية الى كل القائمين على هذا المنتدى الاكثر من رائع

اخي الكريم

هل يمكن تحديد الساعة وشكرا

[منياوى]

الف الف شكر

[ريان أحمد]

إبداع لا ينتهي من أستاذ قدير شكرا وجزاك الله كل خير