مطلوب كود حتى يعمل ملف الاكسيل لوتت معين

[مصطفى أبو العينين]

مطلوب كود حتى يعمل ملف الاكسيل لمدة معينة ثم يتوقف عن العمل ويطلب باص وورد

[محمود_الشريف]

أخى فى الله

جرب هذا الكود

يقوم بحفظ نسخة من الملف فى توقيت معين وبتاريخ محدد وانشاء باس وورد للملف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date = #7/27/2014# And Time >= #12:17:00 AM# Then
ThisWorkbook.SaveAs "C:\MZM.xls", FileFormat:=xlNormal, Password:="123"
End If
End Sub

ولحذف بيانات الملف القديم

استخدم هذا الكود

Private Sub Workbook_Open()

    If Date > #7/27/2014# Then
    For Each x In ThisWorkbook.Sheets
    x.UsedRange.Clear
    Next
    ThisWorkbook.Save
    End If

End Sub

وكلا الكودين يوضعا بحدث الملف

وتقبل منى وافر الاحترام والتقدير

[مصطفى أبو العينين]

شكراً لحضرتك على الاهتمام وجزاكم الله كل خير 

[محمود_الشريف]

الشكر لله أخى الكريم

وتقبل منى وافر الاحترام والتقدير