ضبط كود غلف ملف بعد تاريخ محدد

[۩◊۩ أبو حنين ۩◊۩]

برجاء المساعده فى

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

وعند ظهور شاشه طلب كلمه السر ... والضغط على

  ,يتم الانتقال شاشه كلمه المرور خطاء  Cancel

  ينتقل الى الصوره المرفقه Ok  وبالضغط على 

… يتم دخول الملف .... فما الحلCancel وعند اختيار

 

Private Sub Workbook_Open()

If Date > DateValue("15/7/2013") Then

If InputBox("áØÝÇð ÃÏÎá ßáãÉ ÇáÓÑ ") <> "as2191612" Then

MsgBox "ßáãÉ ãÑæÑ ÎØÇÆÉ.... ÇäÊåÊ ÝÊÑÉ ÇáÚãá ÈÇáÈÑäÇãÌ"

ThisWorkbook.Close

Else

MsgBox "ÊÝÖá ÈÇáÏÎæá ßáãÉ ãÑæÑß ÕÍíÍÉ "

End If

End If

End Sub

 

مرفق الصوره