اكسبير لملف اكسيل

[محمد عادل عبد الغنى]

هذا الكود يجعل ملف الاكسيل لا يفتح اتوماتيكا بعد تاريخ معين

Private Sub Workbook_Open()
  Dim DD As Date
    DD = Format("04/02/2016", "DD/MM/YYYY")
    If Date > DD Then
        MsgBox ("This worksheet Expire")
        ActiveWorkbook.Close
    End If
 End Sub

Book1.rar

[توكل]

جزاك الله خيراً 

هل هناك كود يجعل الملف المفتوح يتحذف بعد 10 دقائق مثلا