كيفية كشف التلاعب بتغير تاريخ الجهاز لفتح ملف اكسل محدد الفترة

[محمد نصري]

السلام عليكم ورحمة الله وبركاته
في الفيديو التالي نتعلم كيفية عمل فترة مؤقتة لملف اكسل
بحيث يعمل الى عند تاريخ معين
ويتم كشف المستخدم في حال قام بتغير تاريخ الجهاز
أتمنى لكم مشاهدة مفيدة

 

 

https://www.youtube.com/watch?v=e7TXbin6vc4

 

[Tarazan]

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

أليس لك صفحة ع الفيسبوك ؟

[إبراهيم ابوليله]

السلام عليكم ورحمة الله وبركاته
في الفيديو التالي نتعلم كيفية عمل فترة مؤقتة لملف اكسل
بحيث يعمل الى عند تاريخ معين
ويتم كشف المستخدم في حال قام بتغير تاريخ الجهاز
أتمنى لكم مشاهدة مفيدة

 

 

https://www.youtube.com/watch?v=e7TXbin6vc4

 

اخى واستاذى محمد

فكره رائعه

وكود جميل

ولكن لنا عتاب معك

غيابك يطول

لاتحرمنا منك

ولى ملاحظه ارجو من حضرتك تداركها

بعد ما يتم فتح الملف

وتظهر الرساله التى تفيد بتغير التاريخ

او انتهاء الصلاحيه

جرب فتح الملف مره ثانيه

يحدث خطأ

انا حليت المشكله دى بالطريقه

البسيطه

ولكن عايز اعرف طريقة حضرتك فى الحل هتكون ازاى

للاستفاده اكثر

تقبل تحياتى

 

تم تعديل سبتمبر 29, 2015 بواسطه إبراهيم ابوليله

[ا بو سليمان]

احسن  بارك الله فيك 

[محمد نصري]

السلام عليكم ورحمة الله وبركاته
في الفيديو التالي نتعلم كيفية عمل فترة مؤقتة لملف اكسل
بحيث يعمل الى عند تاريخ معين
ويتم كشف المستخدم في حال قام بتغير تاريخ الجهاز
أتمنى لكم مشاهدة مفيدة

 

 

https://www.youtube.com/watch?v=e7TXbin6vc4

 

اخى واستاذى محمد

فكره رائعه

وكود جميل

ولكن لنا عتاب معك

غيابك يطول

لاتحرمنا منك

ولى ملاحظه ارجو من حضرتك تداركها

بعد ما يتم فتح الملف

وتظهر الرساله التى تفيد بتغير التاريخ

او انتهاء الصلاحيه

جرب فتح الملف مره ثانيه

يحدث خطأ

انا حليت المشكله دى بالطريقه

البسيطه

ولكن عايز اعرف طريقة حضرتك فى الحل هتكون ازاى

للاستفاده اكثر

تقبل تحياتى

 

السلام عليكم ورحمة الله
أشكرك جدا على ملاحظتك القيمة
فعلا أنا لم أختبر فتح الملف مرة ثانية
فقد كتبت الكود وتأكدت من عمله مرة واحدة ولم أفتحه مرة ثانية
وعند مراجعته أيضا اكتشف عيب ثاني
وهو لم تم الفتح في يوم لاحق لليوم المحدد
فكان حل المشكلة بسيط جدا
بإضافة اشار < على الكود
إليك الكود الجديد فقط اضافة اشارة <
 

 On Error GoTo 1
If Sheets("test_my_date").Range("A1") >= DateValue("27/09/2015") Then

             If Date >= DateValue("27/09/2015") Then

                 MsgBox "تم الكشف عن تغير في تاريخ الجهاز مفكر مالنا كاشفينك -_- "
                 ThisWorkbook.Save
                 Application.Quit
                 Exit Sub
            End If
End If1
         If Date >= DateValue("27/09/2015") Then 
            Sheets.Add After:=Sheets(Sheets.Count)
            ActiveSheet.Name = "test_my_date"
            Range("a1") = DateValue("27/09/2015")
            MsgBox "هذا الملف منتهي الصلاحية"
            ThisWorkbook.Save
            Application.Quit

        End If
End Sub

كما اني بانتطار حلك وشكرا على الملاحظة مرة ثانية
بالنسبة للغياب فهو خارج عن ارادتي وكم احب التواجد هنا وفي كل مكان يمكن فيه نشر العلم والفائدة
لك كل التحية والاحترام

[Tarazan]

شباب طلبت منكم الكود بملف مرفق لتطبيقه بعد تعديله 

ممكن ارساله ؟

اما ع الاميل zaknain@gmail.com

او برابط

صفحتي ع الفيس huzaifa syrian

[Yasser Fathi Albanna]

بارك الله فيك أ / محمد نصرى

وجعله الله فى ميزان حسناتك

[محمد نصري]

شباب طلبت منكم الكود بملف مرفق لتطبيقه بعد تعديله 

ممكن ارساله ؟

اما ع الاميل zaknain@gmail.com

او برابط

صفحتي ع الفيس huzaifa syrian

انا الان في العمل ولكن :

اخبرتك من قبل بأن القائدة الاكبر تكون بتطبيق الفيديو
وبالنسبة للكود موجود في المشاركة قبل تعليقك يمكنك ان تنسخ الكود منها

[Tarazan]

شباب طلبت منكم الكود بملف مرفق لتطبيقه بعد تعديله 

ممكن ارساله ؟

اما ع الاميل zaknain@gmail.com

او برابط

صفحتي ع الفيس huzaifa syrian

انا الان في العمل ولكن :

اخبرتك من قبل بأن القائدة الاكبر تكون بتطبيق الفيديو
وبالنسبة للكود موجود في المشاركة قبل تعليقك يمكنك ان تنسخ الكود منها

اتفهم حرصك الشديد بطلب العلم والعذاب له لكني لأملك معلومات عن الفيجوال بيسك لذلك اطلب الملف جاهز 

بكل الاحوال شاكرين لكم

[إبراهيم ابوليله]

اخى واستاذى محمد ناصر

......................

بالنسبه لطريقة الحل الخاصه بى

فبصراحه انا جربت استخدام

on error resume next

..............................

طبعا الحل المقدم من حضرتك متقن و جميل

والفكره هى الاجمل

الكود يعمل بنجاح

ولكن اذا جاء الميعاد

وخرجت الرساله وقمنا بغلق الملف

ثم قمنا بارجاع تاريخ الجهاز للخلف

ثم اعدنا فتح الملف

سنجد انه يمكننا الدخول الى الملف

ارجو التعديل

انا طبعا حاولت تخطى هذه المشكله

والحمد لله نجحت فى ذلك

ولكنى اطمع فى ان ارى طريقتك فى حل هذا اللغز

تقبل تحياتى

تم تعديل أكتوبر 14, 2015 بواسطه إبراهيم ابوليله