طلب هل من الممكن اضافة هذا الكود للحدث

[yasermohsen]

السلام عليكم ورحمة الله
 
الاخوة عمالقة المنتدى لدى شيت اكسيل يوجد فى الحدث Workbook_Open()هذا الكود يجعل الملف لايعمل الا اذا سمى باسم ياسر

 

Private Sub Workbook_Open()
Dim MyFlName As String
  MyFlName = "ياسر.xlsm"
 
    If ThisWorkbook.Name <> MyFlName Then

    Application.DisplayAlerts = False
    ThisWorkbook.Close
   
Else
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
Workbooks.Application.Visible = True
    Application.ScreenUpdating = False
    Call ShowAllSheets
    Application.ScreenUpdating = True

sheet2.Activate

End If
End Sub

 

هل من الممكن اضافة هذا الكود حيث  فى نفس الحدث بالاضافة الى الكود الموجود  بحيث الكود يجعل الملف يعمل لمدة معينة على سبيل المثال 15 يوما

 

وهذا هو الكود المراد اضافتة للحدث والكود عثرت علية بالمنتدى

 

Private Sub Workbook_Open()
Dim MyDate As Date, Abu_Ahmed As Integer
MyDate = #12/31/2014#
Abu_Ahmed = 15
If Date < MyDate Then
MsgBox "تاريخ الكمبيوتر غير صحيح "
Application.Quit
End If
If MyDate + Abu_Ahmed < Date Then
MsgBox "الملف منتهى "
Application.Quit
End If

تم تعديل ديسمبر 31, 2014 بواسطه yasermohsen