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

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


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



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





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

صباح الخير جميعا احتاج الى كود يقوم باتلاف ملف الاكسل بعد تاريخ معين ولنفرض ١٠/08/2019



09-07-2019 07:08 صباحا
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 655
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 770
الاعجاب : 32
 Online 

صباح الخير جميعا
احتاج الى كود يقوم باتلاف ملف الاكسل بعد تاريخ معين ولنفرض ١٠/08/2019






09-07-2019 07:46 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
جرب الكود التالي
Sub Test()
    If Date > DateSerial(2019, 7, 8) Then
        If MsgBox("This Workbook Will Be Killed .  Are You Sure?", vbYesNo) = vbYes Then
            MsgBox "Great Decision Man", 64
            
            With ThisWorkbook
                .Save
                .ChangeFileAccess Mode:=xlReadOnly
                Kill .FullName
                .Close SaveChanges:=False
            End With
        Else
            MsgBox "You Are Insane! Why Didn't You Kill Me?", vbCritical
        End If
    End If
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، محمد الدسوقى، Yasser Elaraby،




09-07-2019 09:36 صباحا
مشاهدة مشاركة منفردة [2]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1072
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4581
الاعجاب : 276
 Online 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
بارك الله فيك استاذ ياسر وجزاك الله خير الثواب

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


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


09-07-2019 01:15 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
وجزيت خيراً أخي العزيز علي ومشكور على تشجيعك الدائم ومتابعتك المستمرة لكل موضوعات المنتدى

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




12-07-2019 10:04 صباحا
مشاهدة مشاركة منفردة [4]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 655
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 770
الاعجاب : 32
 Online 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
استا ياسر هل ممكن اعين ساعة معينة لسرعة تجربة الكود 
بمعنى ان اضع وقت الاتلاف اليوم الساعة 3





12-07-2019 11:20 صباحا
مشاهدة مشاركة منفردة [5]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 655
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 770
الاعجاب : 32
 Online 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
وهل اضع الكود في مديول او حدث ال workbook





12-07-2019 11:27 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
جرب تعديل السطر التالي
If Date > DateSerial(2019, 7, 8) And Time >= TimeSerial(15, 0, 0) Then





12-07-2019 11:31 صباحا
مشاهدة مشاركة منفردة [7]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 655
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 770
الاعجاب : 32
 Online 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
وهل اضع الكود في مديول او حدث ال workbook






12-07-2019 11:36 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
ضع الكود في موديول عادي ..جرب الكود في ملف وهمي أولاً ... عدل التاريخ وعدل الوقت بحيث تستطيع التجربة

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




12-07-2019 02:30 مساء
مشاهدة مشاركة منفردة [9]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 655
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 770
الاعجاب : 32
 Online 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
TimeSerial(15, 25, 0)

استاذ ياسر للاسف لم يحدث شئ
ولكن لدي سؤال هل الوقت بالكود ساعة ام عداد
بمعنى رقم 15 يعني الساعة 3 ام تعني 15 ساعة 





12-07-2019 02:45 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 offline 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
الرقم 15 يعني الساعة 3 م  ...
جرب السطر فقط أي جلمة الشرط وضع أي سطر لإظهار أي رسالة بينهما للتأكد أن الشروط تحققت ..





12-07-2019 02:49 مساء
مشاهدة مشاركة منفردة [11]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 655
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 770
الاعجاب : 32
 Online 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
هل يشترط ان تكون الاكسل مفتوحة لتعمل 





12-07-2019 02:58 مساء
مشاهدة مشاركة منفردة [12]
khaled alborene
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 655
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 9
يتابعونه : 8
قوة السمعة : 770
الاعجاب : 32
 Online 
look/images/icons/i1.gif كود اتلاف ملف الاكسل
If Date > DateSerial(2019, 7, 12) And Time >= TimeSerial(15, 55, 0) Then
    MsgBox "hi"

قمت بعمل التالي لتجربة الكود ولم يحدث شي 






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

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


 







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



الساعة الآن 10:55 مساء

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