الى خبراء الاكسل ارجو المساعدة

[المستفيد نت]

لدي ملف اكسل اريد تشفيره بكلمة مرور لمدة معينة ( شهر مثلا ) بعدها تنتهي صلاحية البرنامج

ما هي الطريقة ارجو الرد بسرعة .

ومشكورين

[شحادة بشير]

السلام عليكم ورحمة الله وبركاته

الموضوع مطروح بالمنتدى

http://www.officena.net/ib/index.php?showt...p;hl=تاريخ+معين

حياك الله

[المستفيد نت]

يعطيك العافية ابو اكرم

لكن اريد تحديد بدء وانتهاء صلاحية الملف

كما هو موضح في الملف المرفق

ارجو توضيح الكود وكيف اضيف لملفاتي ولك الشكر

______.rar

[شحادة بشير]

السلام عليكم ورحمة الله وبركاته
إليك الكود الذي سينهي صلاحية الملف 28/3/2008

Private Sub Workbook_Open()

    Dim Expiry As Date

    'If today's date > expiry date, the file will close



    Expiry = DateValue("2008/3/28")

    If Date > Expiry Then
        Application.EnableEvents = False
        Call MsgBox("عفوا الملف أغلق فى " & Expiry & ".  من فضلك ارجع إلى الأخ المستفيد نت لشراء النسخة الأصلية وشكراً", vbCritical, "لا يمكنك فتح الملف")


        Application.DisplayAlerts = False
        Application.ScreenUpdating = False
        ActiveWorkbook.Close

        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
        Application.EnableEvents = True

    End If
End Sub

افتح ملف الإكسل--أدوات---ماكرو--محرر فيجوال بيسك
سيفتح لك محرر الفيجوال اختر الورقة thisworkbook
والصق فيها الكود السابق
طبعا من خلال هذا الكود تعدل التاريف فمثلا تستطيع استبدال التاريخ السابق بتاريخ آخر؛كــ: 29/10/2008 وهكذا
وبإمكانك تعديل الرسالة التي ستظهر عندا انتهاء المدة وهي موجودة كما ترى بين علامتي تنصيص
وإليك ملفك مطبق عليه الكود السابق
والشكر للأخوة في المنتدى فهذا من جهودهم وإبداعاتهم
لا تنسانا من صالح دعاءك

_____________________________.rar

[المستفيد نت]

يعطيك العافية ابو اكرم وما قصرت والله يوفقك دنيا واخرة

لكن استفسار اخر

لو كنت ابي الملف يتحدد ب 30 يوما مثلا ( شهر ) ثم يقفل هل هناك طريقة او كود معين

( اقصد 30 يوم من تاريخ اول تثبيت للبرنامج )

وشكرا