حسن محمدسليم عبدالحميد قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 السلام عليكم كيف نكتب تاريخ محدد داخل محرر الأكواد vba وليكن هذا التاريخ هو 1 / 10 / 2012 وجزاكم الله خيراً رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 3, 2011 مشاركة قام بنشر سبتمبر 3, 2011 السلام عليكم جرب الصيغة x = #10/1/2012# رابط هذا التعليق شارك More sharing options...
حسن محمدسليم عبدالحميد قام بنشر سبتمبر 3, 2011 الكاتب مشاركة قام بنشر سبتمبر 3, 2011 السلام عليكم شكراً اخ طارق على سرعة الرد مرفق ملف اكسل يحذف نفسة بعد 30 يوم استخدام ارجو التعديل علية بحيث يتم حذفه فى تاريخ محدد وليكن مثلا 1 / 10 / 2011 وشكرا الملف يحذف نفسه بعد 30يوم استعمال.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 4, 2011 مشاركة قام بنشر سبتمبر 4, 2011 السلام عليكم أخي الكريم أضف هذه الإضافة للكود x = #10/1/2011# If Date > x Then Kill_Myself ليصبح Private Sub Kill_Myself() .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End Sub Option Explicit Private Sub Workbook_Open() Dim lInitialDate As Long On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If x = #10/1/2011# If Date > x Then Kill_Myself End Sub Private Sub Kill_Myself() .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End Sub رابط هذا التعليق شارك More sharing options...
حسن محمدسليم عبدالحميد قام بنشر سبتمبر 4, 2011 الكاتب مشاركة قام بنشر سبتمبر 4, 2011 (معدل) السلام عليكم استاذ طارق عند وضع الكود فى الملف ظهرت رسالة خطأ كما هو بالمرفق ارجو تجربة المرفق والتعديل حتى لا تظهر رسالة الخطأ ارجو تعديل التاريخ الى 1 / 9 / 2011 لكى نتمكن من تجربة الملف هل سيحذف نفسه أم لا أخيراً اشكرك على الإهتمام وجزاك الله خيراً الملف يحذف نفسه بعد 30 يوم استعمال.rar تم تعديل سبتمبر 4, 2011 بواسطه حسن محمدسليم عبدالحميد رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 5, 2011 مشاركة قام بنشر سبتمبر 5, 2011 السلام عليكم فعلا أخي الكود من الأول كان يلزمه إستكمال طفيف الكود المضبوط Option Explicit Private Sub Workbook_Open() Dim lInitialDate As Long, x As Date On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If x = #9/1/2011# If Date > x Then Kill_Myself End Sub Private Sub Kill_Myself() With ActiveWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub والملف المرفق به التاريخ 1/9/2011 والكود المضبوط تفضل الملف يحذف نفسه بعد 30يوم استعمال.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 5, 2011 مشاركة قام بنشر سبتمبر 5, 2011 اخي الفاضل وبعد إذن الاستاذ الفاضل طارق جرب المرفق الملف يحذف نفسه بعد 30 يوم استعمال.rar رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر سبتمبر 5, 2011 مشاركة قام بنشر سبتمبر 5, 2011 الاخوة الاساتذة : طارق & عبد الله المجرب " ابو احمد " جزاكم الله كل الخير ......... وفقكم الله ابو الحارث رابط هذا التعليق شارك More sharing options...
حسن محمدسليم عبدالحميد قام بنشر سبتمبر 5, 2011 الكاتب مشاركة قام بنشر سبتمبر 5, 2011 السلام عليكم استاذ طارق واستاذ عبدالله المجرب " أبو أحمد " استاذ طارق الملف فعلاً مضبوط ويعمل بشكل صحيح جداً أستاذ عبدالله الملف يحذف نفسه ولكن يبقى اسم الملف فقط وذلك لتعطيل السطر Kill .FullName جزاكم الله خيرا على هذا المجهود وجعله الله فى ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر ديسمبر 8, 2012 مشاركة قام بنشر ديسمبر 8, 2012 شكرا الف الف شكر رابط هذا التعليق شارك More sharing options...
منياوى قام بنشر ديسمبر 8, 2012 مشاركة قام بنشر ديسمبر 8, 2012 فعلا فعلا اكثر من رائع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.