اريد كود لحماية شيت

[bardisse]

السلام عليكم 

اساتذتنا الكرام   اريد كود لحماية شييت لفترة زمنية  و ياريت يكون التاريخ محدد مثلا من 2020/02/15  الى غاية 2020/02/28  نكون مسموح العمل فيه

اصغر  < من 2020/02/15     غير مسموح اي لا يفتح

اكبر  >  من 2020/02/28     غير مسموح   اي لا يفتح  

و شكرا

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

 

youcef.xlsm

[bardisse]

Private Sub Workbook_Open()
Dim date1 As Date
Dim date2 As Date
If date1 < DateValue("15/02/2020") Or Sheets("Warning").Range("S1") < 15 / 2 / 2020 Then
If date2 > DateValue("20/02/2020") Or Sheets("Warning").Range("S2") > 25 / 2 / 2020 Then
Sheets("Warning").Range("S1") = 15 / 2 / 2020
Sheets("Warning").Range("S2") = 25 / 2 / 2020
Application.Quit
ThisWorkbook.Save
End If
MsgBox " expire ÇäÊåÊ ÕáÇÍíÉ ÇáãáÝ ,ãÓÊÔÇÑ ÇáÊÛÐíÉ ÇáãÏÑÓíÉ", vbYesNo, ""
End If
End Sub
   

   بحيث عند التنفيذ يغلق ملف الاكسال لكنه لا يفعل ارخو اعانتي في تصحيح هذا الكود

من فضلك لا تكرر نفس المشاركة.. والا ستحذف جميع المشاركات