غلق ملف اكسيل حسب الوقت الذي تريده

[bardisse]

اساتذتنا الكرام هذا  الكود يجعل ملف الاكسيل يغلق حسب التاريخ المحدد لكن المشكلة عندما انقله الى جهاز اخر لا يشتغل لان  macro غير مفعل كيف يشتغل هذا الكود و الماكرو غير مفعل

لعلمكم اني عضو جديد و طرحة مشكلة و لم يجبني احد   جزاكم الله خير

Private Sub Workbook_Open()
If Date > DateValue("08/02/2020") Or Sheets("feuil1").Range("S1") > Date Then
Sheets("feuil1").Range("S1") = Date
MsgBox " expire ÇäÊåÊ ÕáÇÍíÉ ÇáãáÝ ,ãÓÊÔÇÑ ÇáÊÛÐíÉ ÇáãÏÑÓíÉ", vbYesNo, ""
ThisWorkbook.Password = "youyouss"
ThisWorkbook.Save
Application.Quit
End If
End Sub