omar elhosseini

بسم الله الرحمن الرحيم الاخ ابو احمد 3 بعد التحية كان يجب الانتهاء من تجهيز الفورم اولا ورغم عدم خبرتى فى التعامل مع النماذج وجدت لك هذا الكود فى خزانتى ضع الكود فى الفورم "M" Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End If End Sub واذا اردت عند محاولة اغلاق النموذج يتم اغلاق الملف اضف هذا السطر قبل " End If " : Application.Quit ليصبح كالاتى Private Sub UserForm_QueryClose(Cancel As Integer, _ CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True Application.Quit End If End Sub مع تحياتى

بسم الله الرحمن الرحيم الاخ Temo007 بعد التحية يمكن عمل ذلك بدون ان نحتاج الى الون الاحمر شاهد المرفق test2.rar تحياتى

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

بسم الله الرحمن الرحيم الاخ ابو احمد 3 بعد التحية اخى الغاء خاصية غلق الملف تمنع غلق الملف الا من خلال "Task Manager" فلو تذكر لى اصل الفكرة او الى ماذا تريد ان تصل بهذة الفكرة قد اجد لك حل افضل . على العموم اليك ما طلبت بالمرفقات مع ملاحظة ان الملف من خلال الاكسل لن تستطيع اغلاقة ولكن من خلال ديسك توب الويندوز تستطيع اغلاقة عن طريق "Task Manager" _____________.rar تحياتى

بسم الله الرحمن الرحيم الاخ waly_misr بعد التحية بالنسبة لاكواد الاظهار قم بتشغيل الملف المرفق فى المشاركة رقم 3 والمسمى "omar.rar" بعد تشغيل الملف اضغط "ALT+F11" لتدخل الى محرر الاكواد ستجد فى الجهة البسرى "Modules" واسفلها "Module1" دبل كليك على "Module1" سيتظهر لك الاكواد فى الجهة اليمنى . تحياتى

بسم الله الرحمن الرحيم الاخوة الاعزاء بعد التحية رابط البرنامج موجود فى المشاركه رقم 40 وايضا المشاركة رقم 58 وها هو مره اخرى http://www.officena.net/ib/index.php?act=A...ost&id=4202 تحياتى

بسم الله الرحمن الرحيم الاخ atob يجب الاعلان عن المتغير "stopit" كمتغير عام ضع "Dim stopit" قبل اول روتين لتصبح هكذا : Dim stopit Sub startclock() stopit = False clock End Sub Sub clock() If stopit = True Then Exit Sub ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = Format(Now, "hh:mm:ss") Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock" End Sub Sub stopclock() stopit = True istop = i End Sub وسوف يعمل الكود جيدا تحياتى

بسم الله الرحمن الرحيم الاخ بومحمد18 بعد التحية الملف المرفق يغلق بعد عشرة دقائق من بداية فتح الملف CloseIAfterTime.rar تحياتى

بسم الله الرحمن الرحيم الاخ ابومحمد18 بعد التحية لم يتم الرد منذ اسبوع اين الجميع ؟ اخى هل تريد ان : 1 - يغلق الملف بعد 10 دقائق من بداية فتح الملف . 2 - يغلق الملف بعد 10 دقائق من بداية عدم استخدام او ادخال بيانات الى الملف . تحياتى

بسم الله الرحمن الرحيم الاخ halwim بعد التحية اليك الاكواد الموجودة بالملف UnprotectSheetPass.rar تحياتى

بسم الله الرحمن الرحيم الاخ helmy_foad بعد التحية يمكنك تجربة هذا الكود وهو يعمل فى المدى A1:A10 C1:C10 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Application.Intersect(Target, Range("A1:A10,C1:C10")) Is Nothing Then [F11].Select End If End Sub او من خلال هذا المرفق ______________.rar

بسم الله الرحمن الرحيم الاخ halwim بعد التحية يمكنك عمل ذلك قبل ان تعمل حماية الورقة من قائمة ادوات ثم حماية ثم السماح للمستخدمين بتحرير النطاقات حدد النطاقات التى تريد عدم استخدامها الا فى حالة استخدام كلمة سر خاصة وبعد تحديد هذه النطاقات ضع لها كلمة السر "كلمة مرور النطاق" ثم فى النهاية عمل حماية للورقة تحياتى

بسم الله الرحمن الرحيم الاخ helmy_foad بعد التحية يسعدنى اشارتك و استخدامك لطريقتى التى كنت ابنكرتها لحل مشاكل الاكسل المستعصية عن الحل فهذة الطريقة كنت توصلت اليها وقمت بشرح وافى لها فى هذا الرابط : http://www.officena.net/ib/index.php?s=&am...ost&p=54636 ولكن هذه الطريقة نلجأ اليها عندما لاتوجد حلول للمشكلة من داخل الاكسل - وفى حينها لم يتوصل احد الى حل مشكلة كليك يمين التى لاتعمل من داخل الاكسل فلجأت الى هذة الطريقة للتحكم بالاكسل رغم وجد حل لمشكلة كليك يمين من داخل الاكسل ولكنى وقتها لم اكن ملم بها ولكن الان استطعت التحكم بجميع قوائم وشرائط الادوات حتى القوائم والاوامر الفرعية من داخل الاكسل اى جميع اوامر الاكسل حتى ضربات المفاتيح الفردية والمركبة وكان هذا للعلم بالشئ والاستزادة 0 فأذا اراد احد اخفاء او اظهار اى امر او قائمة او تعطيل او تفعيل اى خاصية من خواص الاكسل او الغاء او تفعيل اى استخدام للمفاتيح الفردية او المركبة انا فى الخدمة . ولكن مشكلة الاخ waly_misr خارج هذا النطاق وابسط من ذلك بكثير فبتنفيذ الاكواد الاتية من داخل اى موديل بتم اظهار ما ارد Application.DisplayFullScreen = False Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Drawing").Visible = False Application.DisplayFormulaBar = True Application.DisplayStatusBar = True وبذلك يستطبع الاخ waly_misr ان يتعلم التحكم بالامور وليس حل المشكلة بدون ان لايدرى ما هى . واذا كان اخى waly_misr لا يستطيع التعامل مع الاكواد بأمكانة تنفيذ الملف المرفق فقط فتطهر الادوات التى تم اخفائها . omar.rar تحياتى

بسم الله الرحمن الرحيم يا جماعة رابط البرنامج موجود فى الصفحة رقم 3 المشاركة رقم 40 من نفس الموضوع على رابط اوفسينا وها هو مرة اخرى هنا : http://www.officena.net/ib/index.php?act=A...ost&id=4202 تحياتى

بسم الله الرحمن الرحيم الاخ Aboutarek بعد التحية شاهد المرفق مع ملاحظة : 1 - ان المدى مفتوح من اسفل الجدول ليمكنك من زيادة مسلسل الاسماء كما تشاء بدون تعديل الكود الذى يستشعر المدى الفعلى لبيانات الجدول . 2 - عند الضغط على الزر يتم الترتيب حسب عمود المعدل السنوى . 3 - عند الضغط على الزر مرة اخرى يتم الترتيب حسب مسلسل العمود الاول اى بدون ترتيب . تحياتى وتمنياتى بالتوفيق مرفق ترتيب جدول : Mourakaba003.rar

ارفق ملف به عينة من البيانات

بسم الله الرحمن الرحيم الاخت طيف الكويتية بعد التحية الملف المرفق به : 1 - ملف كأس العالم بعد اظهار البيانات المخفية . 2 - الملف الثانى عبارة عن فيديو قد يجيب على اسئلتك . المرفقات : http://www.uploading.com/?get=U50Z822A تحياتى

بسم الله الرحمن الرحيم الاخ halwim الروابط تعمل وقمت بحقظهم لك فى المرفقات Excel.rar تحياتى

بسم الله الرحمن الرحيم الاخ helmy_foad بعد التحية لقد وضعت الشرح مع الشرح السابق عن ادراج دالة لتعمل على جهازك بصفه دائمة فى المشاركة الاتية بالرابط http://www.officena.net/ib/index.php?s=&am...ost&p=55928 و اذا كن فى اى شئ غامض انا فى الخدمة تحياتى لك

بسم لببه الرحمن الرحيم وحتى يكون الموضوع كاملا . ماذا تفعل اذا اردت استخدام الدالة التى ادرجتها على جهازك فى ملف سوف ترسلة الى صديق ولا تعرف اذا كانت الدلة مثبتة على جهازه ام لا . الملف المرفق عبارة عن فيديو يبين : كيفية ادراج اى دالة او كود فى ملف حتى يعمل الملف على اى جهاز اخر . http://www.9q9q.net/up2/index.php?f=tSpWwvLK تحياتى الى الجميع

بسم الله الرحمن الرحيم الاخ helmy_foad بعد التحية فعلا اخى انت قمت بتفعيل دالة ifyes فى الأكسيل بواسطة tools - addins و إذا ضغطت على f11 فستجد module وبة الدالة وعندما تقوم بأستخدام الدالة وحفظ الملف لاتحفظ الدالة به فأذا ارسلت الملف الى الاخرين لن تكون الدالة موجودة فيجب تفعيل الدالة عندهم او ادراج كود الدالة بالملف المرفق . واذا كان هناك شئ غامض انا فى الخدمة . تحياتى

بسم الله الرحمن الرحيم الاخ helmy_foad اخى لقد نسيت ادراج كود دالة "IFYes" بالملف المرفق الخاص بك ولذلك لم تعمل الدالة و لمزيد من المعلومات بخصوص ادرج الدول شرفنى بزيارة مشاركتى على الربط التالى : http://www.officena.net/ib/index.php?showtopic=12991 الاخوة الاخ helmy_foad الاخ mosaab الملف المرفق به 3 ورقات : الورقة الاولى : تصحيح لمثال الاخ "helmy_foad" وارجو منه مراجعته ومعرفة الفرق بينهما لتصحيح مفهوم الدالة . الورقة الثانية : حل المثال الذى قام بطرحه الاخ mosaab بأستخدام "IF" الورقة الثالثة : حل المثال الذى قام بطرحه الاخ mosaab بأستخدام الدلة التى اشار اليها الاخ "helmy_foad" اى بأستخدام دالة "IFYes" . تحياتى الى الجميع المرفقات IF3.rar

بسم الله الرحمن الرحيم الاخ خالد نور تحياتى شكرا لك اخى على مرورك الكريم لى سؤال لك خاص بالاوقيس 12 فأنت قمت بتركيب النسخة المعروضة بالمنتدى هل متاح لك 1 - فى قائمة ملف ان تقوم بالحفظ والحفط بأسم 2 - فى تاب الاوراق هل متاح لك بند عرض التعليمات البرمجية 3 - هل يمكن عمل اكتيفشن للنسخة سبب سؤالى هو حصولى على نسخة افيس 12 "Beta 2" ومتاح بها ما اسئلك عنه اما بخصوص تنويهك فى الموضوع الاخر سوف ارسل رسالة لتوضيح الاسباب التى سبقت ذلك . تحياتى

تم رفع ملف الفيديو الخاص بأدراج دالة فى الاكسيل لتكون متاحة لكل الملفات الى رايط غير محجوب بالسعودية الرابط http://www.arbup.net/v/3337841/t.rar.html تحياتى

عن وضع المرفق فى المنتدى ليس بيدى لان حجمة حوالى 8 ميجا ولكنة بيد الادارة والمشرفين اذا وجدوا انه يستحق ان يكون بالمنتدى وخاصتا المشرف الاخ hs889 وسف نجد حل إن شاء الله اخى من اين انت واذكر لى بعض المواقع الغير محجوبة لديكم للرفع عليها