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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil استخراج القيم المكررة والفريدة معا اكسيل اسئله واجابات


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


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

Preview




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

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



07-06-2019 07:37 مساء
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
تحياتي جميعا 
وكل عام وانتم بخير تقبل الله منا ومنكم
ارجو مساعدتي بكود يقوم باتلاف ملف الاكسل عند تاريخ معين بحيث لا يمكن فتح الملف والاستفادة منه




07-06-2019 08:01 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1540
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 65
قوة السمعة : 7162
الاعجاب : 141
 Online 
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








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

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




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

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


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





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



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

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

تقبل تحياتي




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

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


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


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


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





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




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

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






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

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


 








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

الساعة الآن 09:56 مساء

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