حماية المصنفات بداية من تاريخ محدد داخل اكسل

[ممدوح عزالدين]

السلام على جميع اساتذة المنتدى وبالخصوص الاخ عبدالله المجرب الذى ارجو منه الكود الخاص بحماية المصنفات بداية من تاريخ معين يعنى نرجع لعام 2013 معلش انا جديد فى عالم الاكواد نفعنا الله بعلمكم

[ياسر خليل أبو البراء]

جرب الكود التالي في حدث المصنف

Private Const ExpirationDate As Date = #1/31/2015#

Private Sub Workbook_Open()
    ThisWorkbook.Worksheets("Sheet1").Unprotect Password:="123"
    If CDate(Now) >= CDate(ExpirationDate) Then
        ThisWorkbook.ChangeFileAccess (xlReadOnly)
        ThisWorkbook.Worksheets("Sheet1").Protect Password:="123", UserInterfaceOnly:=True
    End If
End Sub

جرب أن تغير التاريخ إلى تاريخ أحدث وليكن 31 / 1  / 2016 على أن يكون الشهر في البداية يليه اليوم ثم السنة كما هو مبين بالكود عاليه

تقبل تحياتي

[ممدوح عزالدين]

الف شكر ولكن ارجو ملف اكسل به الكود

[ياسر خليل أبو البراء]

تفضل أخي الكريم ممدوح (وبلاش اللي بالي بالك ..)

راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى

 

Protect Workbook & Prevent Editing After Specific Date YasserKhalil.rar

[ممدوح عزالدين]

ما اريده بصراحه هو قفل ملف اكسل بعد مرور 3 شهور من الان ولا يمكن فتح الملف بعد مرور 3 اشهر الا بباسورد محدد حتى لو تم التلاعب فى تاريخ الكمبيوتر واستحملنى شوية لانى جديد فى الاكواد وتعال على نفسك شوية وخليك معاى