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

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


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



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





كود غلق الملف نفسه و ليس الكل

السلام عليكم بعتذر لانه ممكن الموضوع مكرر لان فى احد الاعضاء اضاف هذا الملف و سال و لم يتابع او اكتفى و الله اعلم ان اطر ..



17-09-2019 11:40 صباحا
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 199
الاعجاب : 71
 offline 

السلام عليكم
بعتذر لانه ممكن الموضوع مكرر
لان فى احد الاعضاء اضاف هذا الملف و سال و لم يتابع او اكتفى و الله اعلم
ان اطرحت السؤال لانى كنت مهتم بنفس الموضوع و لقيت الملف المرفق طرحه الاستاذ / خالد
و هو عبارة عن تنبيهات تظهر فى المواعيد المحددة من خلال يوزر فورم و ليست بوكس
هو الملف فيه كود زر الاغلاق مكتوب فيه سطر كلمة واحدة مش فاهم معناها و هى end
و هى بتعمل اغلاق لليوزر فورم و لكن يظل الملف مفتوح
جربت اكتب سطر ThisWorkbook.Close بس مش نافع و ده الكود الموجود

Private Sub CommandButton1_Click()


    ThisWorkbook.Close
'End
End Sub

اللى بيحصل انه بيخفى الفورم و الملفات المفتوحة و بتكون كلها مفتوحة اول ما بفتح ملف كله بيفتح حتى الملف نفسه
كل اللى عايزه انه لما افتح الملف و معاه ملفات تانية زر الاغلاق يغلق الملف نفسه فقط و ما يخفيش بقيت الملفات
و شكرا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تنبيهات و مواعيد هامة.xlsm   تحميل xlsm مرات التحميل :(13)
الحجم :(55.495) KB







17-09-2019 12:19 مساء
مشاهدة مشاركة منفردة [1]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 199
الاعجاب : 71
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
انا لاحظت ان المشكلة او بمعنى اصح اللى خلانى مش عارف انفذ اللى انا عايزه هى الجملة دى فى الملف المرفق
Application.Visible = False
لانها لو بفتح الملف لوحده بتخفى الاكسيل و تظهر الفورم فقط و ده طبيعى عشان يبان الفورم كانه اشعار
و لكن لو عكستها ل true عشان بقيت الملفات تكون ظاهرة و فتحت الملف و قفلت من زر الاغلاق واجهة الاكسيل بتكون ظاهرة فى الخلفية
و مش بيكون شكل جمالى
يا ريت لو فيه مساعدة هل فيه حاجة فى الاكواد نقوله لو الملف مفتوح لوحده يقفل الابليكيشن و لو العكس يفتح
مممممم........مش عارف





17-09-2019 12:25 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1335
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 53
قوة السمعة : 6133
الاعجاب : 874
 Online 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
وعليكم السلام-يمكنك استخدام هذا الكود
Sub Close_Workbook()
ActiveWorkbook.Close
End Sub


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


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


17-09-2019 06:55 مساء
مشاهدة مشاركة منفردة [3]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 720
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 861
الاعجاب : 76
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
صديقي انا اعتر عن متابعة الموضوع ولكن لم اصل الى حل وكل حلول الاساتذة لم تعطي النتيجة المرجوة 





18-09-2019 09:42 صباحا
مشاهدة مشاركة منفردة [4]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 199
الاعجاب : 71
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
استاذ على 
طبعا شكرا على المتابعة
فى حالة فتح الملف لوحده تمام
و لكن المشكلة فى حالة وجود ملف اخر مفتوح بيغلق الملف الهدف و بيخفى الملف المفتوح يعنى بيعلقه كده 
لان الملف الهدف فى سطر Application.Visible = False بيتفعل مع ظهور الفورم
جربت اعكسها فى زر الاغلاق و لكن دون جدوى
و شكرا





24-09-2019 10:03 صباحا
مشاهدة مشاركة منفردة [5]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 199
الاعجاب : 71
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
فضلا و ليس امرا





29-09-2019 10:32 صباحا
مشاهدة مشاركة منفردة [6]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 199
الاعجاب : 71
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
فضلا و ليس امرا





29-09-2019 01:59 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
بردو مصمم .. قلت لك لما ميكونش فيه رد تعرف إن الناس مش فاهمة المشكلة كويس
فقوم ايه؟؟؟ .. قوم اشرح تاني في موضوع جديد أو في نفس الموضوع .. وربنا ييسر لك الأمور وتتحل المشكلة

أثارت هذه المشاركة إعجاب: صلاح الصغير،




01-10-2019 02:29 مساء
مشاهدة مشاركة منفردة [8]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 210
الاعجاب : 48
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
اخى صلاح
جرب هذا الامر

If Application.Workbooks.Count = 1 Then
Application.Quit
Else
    ThisWorkbook.Close
End If

تقبل تحياتى

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


توقيع :EM_ACC
إبراهيم أبوليله


01-10-2019 02:35 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
بارك الله فيك أخي العزيز إبراهيم
يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط

أثارت هذه المشاركة إعجاب: صلاح الصغير،




02-10-2019 09:20 صباحا
مشاهدة مشاركة منفردة [10]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 199
الاعجاب : 71
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
استاذ / ياسر
قوم ايه الاستاذ ابراهيم بارك الله فيه
قرب للحل و لكن تظل المشكلة و طبا بعتذر انى مش قادر اوصل المكلوب كويس بس هاقول تانى
الفكرة فى الملف انى عايز لما اكون فتح ملفات تانية تمام كه يا باشا 
و بعد كده بفتح الملف الاصلى و بدوس على زر اغلاق تمام كده ايه اللى بيحصل بقى
انه فعلا بيقف الملف الاصلى و لكن بيخفى معاه كمان الملفات التانية اللى كنا فاتحينها و ما يكونش ليهه اى اثر و لا حتى فى التاسك بار تحت
قوم ايه لما طبعا بكون عارف مكانهم الاصلى بروح افتحهم بلاقيهم اصلا مفتوحين
هى المشكلة فى الجملة دى فى الموديول بتاع الفورم Application.Visible = False لما بيفتح الفورم عشان يبان على شكل تنبيه
و بيشتغل تمام طول ما الملف فاتح لوحده
قوم ايه بقى يا استاذ ياسر الجميل 
انا عايز لما ادوس على زر الاغلاق و فى حالة وجود ملفات تانية مفتوحة بس يقفل الملف الاصلى و يعكس بقى ام الجملة دى Application.Visible = False 
و الله اعلم عشان يظهرلى المفات التانية المفتوحة
يا رب اكون قدرت اوصل المعلومة
و الف شكر لكل الاساتذة الكرام 





08-10-2019 06:10 مساء
مشاهدة مشاركة منفردة [11]
EM_ACC
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 166
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 210
الاعجاب : 48
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
If Application.Workbooks.Count = 1 Then
Application.Visible = True
Application.Quit
Else
     ThisWorkbook.Close
End If


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


توقيع :EM_ACC
إبراهيم أبوليله


09-10-2019 09:22 صباحا
مشاهدة مشاركة منفردة [12]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 199
الاعجاب : 71
 offline 
look/images/icons/i1.gif كود غلق الملف نفسه و ليس الكل
شكرا استاذ / ابراهيم 
مبدائيا حلو الملف نفسه بيقفل
بس التانى بيظل مفتوح زى ما احنا عايزين بس مخفى
عايزين بقى يكون ظاهر على الشاشة 
و شكرا للمتابعة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اريد طلب استبدال قائمة أسماء بأخرى حسب الملف mostachar
3 30 YasserKhalil
فتح الملف التنفيذى على اكثر من جهاز Ubai1982
14 98 EM_ACC
قم بتنزيل الملفات مع uTorrent لنظام Android rima1977
0 33 rima1977
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
8 148 مجدى يونس
كود لتحديث الروابط بشكل تلقائي بدون الحاجة لفتح الملف المصدر مع ملاحظة ان الشيتات محمية برقم سري sedmed
7 156 YasserKhalil

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


 







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



الساعة الآن 12:26 صباحا

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