كيف أجعل ملف XLSM يعمل لمدة معينة مثل البرامج مدة تجربية؟؟

[hicham2610]

السلام عليكم

من فضلكم إن كان ممكنا جعل ملف XLSM يعمل لمدة معينة مثل البرامج مدة تجربية

إن كان ممكنا كود ذلك

وجزاكم الله خيرا

[hicham2610]

الإخوة الكرام

هل هذا الأمر غير ممكن؟؟

[محمود_الشريف]

أخى الكريم

إليك محاولة منى تجربة عدم فتح الملف بعد خمس مرات 

ضع هذا الكود فى محرر الأكواد ThisWorkbook  وجرب فتحه وغلقه تجد أنه بعد العدد المذكور لا يمكنك فتح الملف 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [A1] >= 5 Then GoTo 1
[A1] = [A1] + 1
1:
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
If [A1] >= 5 Then
MsgBox "لقد فتح الملف خمس مرات ولا يمكن فتحه مرة اخرى", , "تنبيه"
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

 

[محمود_الشريف]

أخى الكريم

إليك محاولة منى تجربة لصلاحية الملف بتحديد تاريخ معين  ، يمكنك تغيير التاريخ بالكود 

أيضا ضع هذا الكود فى محرر الأكواد ThisWorkbook  وجرب فتحه وغلقه تجد أنه بعد العدد المذكور لا يمكنك فتح الملف 

Private Sub Workbook_Open()
Dim Edate As Date
Edate = Format("28/02/2017", "DD/MM/YYYY") ' Replace this with the date you want
If Date > Edate + 2 Then
MsgBox "This workbook is Expired and will now close !!!"
ActiveWorkbook.Close
End If
End Sub

 

[hicham2610]

الأخ الكريم

محمود_الشريف

جزاك الله خيرا و جعلك من الذين يخففون عتن الناس كرب الدنيا فينفس الله عنك كرب الآخرة

جربت الأول فنجحت العملية وسأجرب الثاني وسينجح إن شاء الله

جزاك الله خيرا

[محمود_الشريف]

أخى الكريم

جزيتم عنى خير الجزاء على دعاؤكم الطيب ولكم مثله أضعاف مضاعفه