أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تثبيت الكود علي خليه معينه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود اتلاف ملف الاكسل

تحياتي جميعا وكل عام وانتم بخير تقبل الله منا ومنكمارجو مساعدتي بكود يقوم باتلاف ملف الاكسل عند تاريخ معين بحيث لا يمكن ..



07-06-2019 07:37 مساء
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 671
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 803
الاعجاب : 47
 offline 

تحياتي جميعا 
وكل عام وانتم بخير تقبل الله منا ومنكم
ارجو مساعدتي بكود يقوم باتلاف ملف الاكسل عند تاريخ معين بحيث لا يمكن فتح الملف والاستفادة منه






07-06-2019 08:01 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
يمكنك استخدام هذا الكود بعد وضعه فى حدث This Workbook
Private Sub Workbook_Open()
MsgBox "Ok"
MsgBox DateDiff("d", "10/Jun/2019", Date)
If DateDiff("d", "10/Jun/2019", Date) > 1 Then
MsgBox "Ok1"
Application.ActiveWorkbook.Close
End If
MsgBox "Ok2"
End Sub



او يمكنك ايضا بهذا الكود فى حدث This Workbook

Private Sub Workbook_Open()
 On Error Resume Next
 Dim Edate As Date
 Dim sh As Worksheet
Edate = Format("30/06/2019", "DD/MM/YYYY") '<----- set the delete date here
     If Date > Edate Then
    DeleteActiveWorkbook
End If
End Sub

ثم بعد ذلك فتح مديول جديد ووضع فيه هذا الكود

Sub DeleteActiveWorkbook()
Dim xFullName As String
xFullName = Application.ActiveWorkbook.FullName
ActiveWorkbook.Saved = True
Application.ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill xFullName
Application.ActiveWorkbook.Close False
End Sub






أثارت هذه المشاركة إعجاب: هانى على، Eslam Abdullah، محمد الدسوقى، YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


07-06-2019 10:05 مساء
مشاهدة مشاركة منفردة [2]
هانى على
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 283
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 447
الاعجاب : 8
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
رائع استاذ علي اكواد ممتازة جزاك الله كل خير

أثارت هذه المشاركة إعجاب: ali mohamed ali، Eslam Abdullah،




08-06-2019 12:42 مساء
مشاهدة مشاركة منفردة [3]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 671
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 803
الاعجاب : 47
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل

شكرا اخي علي على سرعت استجابتك 


سؤالي استخدم احد الكودين واضعه في حدث الملف


أثارت هذه المشاركة إعجاب: Eslam Abdullah،




08-06-2019 01:50 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
يمكنك فقط وضع اول كود فى حدث This Workbook

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


08-06-2019 09:15 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6650
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18510
الاعجاب : 739
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
بارك الله فيك أخي العزيز علي
يفضل إرفاق ملف لمزيد من الاستفادة 

تقبل تحياتي

أثارت هذه المشاركة إعجاب: khaled alborene، Eslam Abdullah، ali mohamed ali،




08-06-2019 09:38 مساء
مشاهدة مشاركة منفردة [6]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 671
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 803
الاعجاب : 47
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل

تحياتي استا ياسر 


كل عام وانت بخير 


شكرا على مرورك العطر 


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


أثارت هذه المشاركة إعجاب: Eslam Abdullah، YasserKhalil،




08-06-2019 11:28 مساء
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
السلام عليكم -كل عام وانتم جميعا بخير -حمد الله على سلامة حضرتك استاذ ياسر وعودا حميدا -بالتأكيد طلباتك اوامر استاذ ياسر 
وهذا ملف التطبيق بناءا على رغبة حضرتك ولكى تكتمل الإستفادة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Expire.xls   تحميل xls مرات التحميل :(5)
الحجم :(25.6) KB


أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


09-06-2019 12:14 صباحا
مشاهدة مشاركة منفردة [8]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 671
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 803
الاعجاب : 47
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
شكرا لك استاذ علي دائما سباق في وضع الحلول

أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود اتلاف ملف الاكسل khaled alborene
26 309 YasserKhalil

الكلمات الدلالية
الاكسل ، اتلاف ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:25 صباحا

أعلن هنا
أعلن هنا
أعلن هنا