مختار حسين محمود

بارك الله فيك وجازاكم خيرا على مشاركتك لنا هذا الملف لتحميل أحدث نسخة من الملف اتبع الرابط الأتى : http://www.xlfdic.com/

بارك الله فيكم وسدد خطاكم نحياتى

السلام عليكم أخى خالد جرب الأتى : من Home tab اختر Find & Select ثم اختر Select Objects. اختر الشكل الاول ثم اضغط shfit من لوحة المفاتيح وأنت ضاغط على الـ shfit اختر الشكل الثانى ضغطة شمال واختر group ليس هناك مشكلة

أشكر السادة السادة المشرفين الأستاذ/ رجب جاويش الأستاذ / شوقى ربيع وأؤكد مرة ثانية أن الاختلاف فى الرأى لايفسد للود قضية عندى بأى حال من الأحوال كما أننى أرفض وبشدة كل أنواع التجريح بقصد أو بدون احتراما للزملاء ولمجلس العلم الذى نحن فيه وأؤكد أن البيانات الشخصية يجب أن نحميها ويجب ألا نقدمها على الملأ لتكون عرضةً للتلاعب وكل ما نريده تقديم أكواد ومعادلات وأمثلة وتطبيقات عامة للتعليم فقط لا بيانات شخصية أو أسرار عمل أو شركات وفق الله الجميع لما يحب ويرضى

أستاذ حالد بارك الله فيك جربت ما قلت ولم تتغيير الأيقونه فى شريط المهام تغييرت فى شريط الأدوات فوق قائمة file فقط أعمل على win7 mso2010 وإثراءً للموضوع هذا كود يؤدى نفس العمل بدون ملفات أو الذهاب للـ c Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, _ ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, _ ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Const WM_SETICON = &H80 Sub SetExcelIcon() Dim lngXLHwnd As Long, lngIcon As Long, strIconPath As String 'Use whichever icon file you want to use here strIconPath = "C:\Program Files\Microsoft Office\Office14\MSN.ICO" lngXLHwnd = FindWindow("XLMAIN", Application.Caption) lngIcon = ExtractIcon(0, strIconPath, 0) SendMessage lngXLHwnd, WM_SETICON, False, lngIcon End Sub فقط غير المسار لأى أيقونة والتغيير يكون فقط فى الأدوات فوق قائمة file تحياتى

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

بسم الله الرحمن الرحيم " وَاذْكُر رَّبَّكَ فِي نَفْسِكَ تَضَرُّعاً وَخِيفَةً وَدُونَ الْجَهْرِ مِنَ الْقَوْلِ بِالْغُدُوِّ وَالآصَالِ وَلاَ تَكُن مِّنَ الْغَافِلِينَ " صدق الله العظيم الأعراف 205 من هذا المنطلق اخوانى وأحبابى أتقدم إليكم ببرنامجى الجديد Ela Salaty on Excel version:1.1 2015 الأهداف المرجوة من البرنامج بإذن الله تعالى تذكير المستخدم بالله عز وجل أثناء العمل على الاكسل من خلال أدعية وأذكار وتسابيج مكتوبة فى البرنامج تعرض على المستخدم فى فورم كل فترة زمنية محددة بالبرنامج هذه الأدعية والأذكار تكون مصحوبةً بصوت ينبه الى ظهور الدعاء وبعدها يتلاشى الذكر أو الدعاء من أمام المستخدم شيئا فشيئا يمكن للمستخدم التعديل بالزيادة والنقصان على الفترات الزمنية كيفما يشاء على أن يقوم بعمل حفظ وإعادة فتح البرنامج من جديد يمكن للمستخدم التعديل بالزيادة والنقصان والتغيير أيضا على الأدعية كيفما يشاء فقط ضع الدعاء الذى تحبه فى خلية بعمود الأدعية [AA] بورقة العمل الأولى تذكيرالمستخدم بمواعيد الصلاة أثناء العمل على الاكسل مواقيت الصلاة فى البرنامج حسب التوقيت المحلى لمدينة أسيوط جمهورية مصر العربية وعلى المستخدم مراعاة فروق التوقيت بالتعديل فى الكود الخاص بمواعيد الصلاة فى بلده بالنسبة للآذان اخترت له نداءً بسيطاً يعبر عنه وليس الآذان كاملا رغبةً منى فى تقليل حجم الملف يمكن للمستخدم تغييره ووضع الصوت الذى يحبه بشرط نفس الاسم ونفس مسار ملف البرنامج والامتداد ويف وضعت بصمة تاريخية للشيخ الشعراوى فى البرنامج تنهمر بسببها الدموع عقب كل آذان هذه البصمة لإعلاء التأثير النفسى على المستخدم وحثه على سرعة الاستجابة لنداء الحق لم أنسَ أحبابنا الأطفال بنين وبنات فى البرنامج 3 ملفات فلاش مدمجة فى البرنامج من أحد المواقع الاسلامية http://www.ipc-kw.com لتعليم الوضوء والصلاة لتشعيل ملف الفلاش ضغطة شمال واختر تشغيل ربنا تقبل منا إنك أنت السميع العليم وتب علينا يا مولانا أنت التواب الرحيم وصلى اللهم على سيدنا محمد (ص) صلاةً ما ذكره الذاكرون وما غفل عن ذكره الغافلون رابط الملف : http://www.4shared.com/rar/OEsU4QGBce/Ela_Salaty_on_Excel__V_1__2015.html الأكواد منقولة من مواقع أجنبية واضافات وتعديلات شخصية لتحقيق الهدف وأخر دعاؤنا الْحَمْدُ لِلّهِ الَّذِي هَدَانَا لِهَـذَا وَمَا كُنَّا لِنَهْتَدِيَ لَوْلا أَنْ هَدَانَا اللّهُ الأعراف 43 ================== مختار حسين محمود الأسيوطى 14/04/2015

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

السلام عليكم نقطتان يجب الاتفاق عليهما : 1 - الاختلاف لا يفسد للود قضية 2 - حماية الملفات والملكية الفكرية واقع يجب الايمان به كسر الحماية أيضا واقع يجب التعامل معه النقطة الاولى : كلنا متفقون عليها الثانية : حماية الملفات قد نلجأ جميعا لها وهذا من حق أى انسان أن يحمى خصوصياته. طالما أن معرفة الغير بها تسبب له ضرراً لكن اذا كان معرفة الغير بابداعه لا تضره فلم يمنع هذا الابداع ويحجبه عنا وإذا كان من حقه أن يحتفظ بابداعه لنفسه فمن حقنا عليه - من باب الأخوة الانسانية على الأقل - أن يطلعنا كيف توصل الى هذا الابداع ؟! كى نتعلم منه ونضيف عليه فالمعرفة الانسانية تراكمية والسؤال الذى يطرح نفسه : كيف يكون الابداع ابداعاً إذا استأثر المبدع به لنفسه ؟! فهذا ليس بابداع وانما أنانية واحتفار للعلم ولو أن كل مبدع استأثر بعمله ما وصلت البشرية الى كل هذا التقدم الحضارى !! هذا ليس مدعاةً لكسر الخصوصيات التى تسبب لصاحبها الضرر فاذا سببت له ضرراً فلا داع لهذا ونقول لمن يحاول الكسر : لا ضرر ولا ضرار استأذن واذا لم يؤذن لك اجتهد حتى تصل الى غايتك . تحياتى

أخى هانى أشكرك شكرا جزيلا على مشاركتك لنا لهذا الملف أكثر من رائع

أخى الديب أخى أبوايمان السلام عليكما ورحمة الله وبركاته شرفت بمروركما الكريم وسعدت به تحياتى لكما

ليــــــــــــــــــــــــــــــــــــــــــــــــه تبطل اكسل أخى الصقر وده كلام ياراجل !!!!!!!!!!!! الاختلاف لا يفسد للود قضية بدون زعل يا صاحبى أؤكد لك أن حماية ملف الاكسل = صفر الا اذا تحول الملف الى ملف تنفيذى اذا كانت مايكروسوفت وناسا ووزارات الدفاع وعلى رأسها الأمريكية والبنوك الدولية .....................تخترق ؟!!!!!!!! واذا كان الابداع وصل الى أن يأخذ ملفاتك الخاصة التى على جهازك بدون أن تشعر يبقى ملف صغير هيقف أمامنا يا صاحبى الابداع أغلبه الآن فى الكسر والتعدى على حقوق الملكية الفكرية . وأتفق معك يكفيك شرف المحاولة وكما قلت لك فى مشاركتى كلامى ليس تثبيطا للهمة ولكن توفيرا للوقت والجهد . أخوك مختار

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

جميل أوى يا أبوعلى للأسف أخى حسن لم أعمل على نظام الماكنتوش نهائيا ولا أدرى خصائصه لكن يبدو الأمر فى نظام اعدادات اللغة والأرقام أعتقد أن لها فورمات معين والله أعلى وأعلم

الاحتمال الوحيد أن الزر ده عايز يحرجنى معاك يا أبا الفبطان ما تصدقوش ده زر عايز يفر العلاج : أغلق كل برامج الأوفيس و جرب أنك تنظف جهازك ( النسختين ان وجد ) وخاصة مجلد temp من مخلفات العمل هتلاقيه فى المسار ده ........... C:\Users\[username]\AppData\Local\Temp فرغه من اللى جواه واعمل ريستارت وبعد كده جرب حفظ الملف بتنسيق 2003 افتح الملف و اوعى تشغل الزر يا أبوعلى اقطع رقبته وخلصنى منه نهائيا وحط زر مكانه واربطه كويس بالكود وأنت على أوفيس 2003 وان شاء الله تنحل المشكلة تحياتى

السلام عليكم أخى الساهر يبدو أنك نسيت قاعدة ارفاق ملف تريحنا وتريحك من اللف :rol: الزملاء عايزين يشوفوا الاكواد حتى يمكن التعديل وهذا سبب تأخر الرد تقبل تحياتى

أخى صلاح الأكواد فى اليوزرفورم مربوطة بــ CommandButton يتم ادراجه أثناء عمل اليورزفورم والأكواد المستخدمة فى اليوزرفورم هى Option Explicit Private Sub CommandButton1_Click() Call Shell("C:\Program Files\Microsoft Games\Chess\Chess.exe", vbNormalFocus) ActiveWindow.WindowState = xlMaximized End Sub Private Sub CommandButton2_Click() Call Shell("C:\Program Files\Microsoft Games\SpiderSolitaire\SpiderSolitaire.exe", vbNormalFocus) End Sub Private Sub CommandButton3_Click() Call Shell("C:\Program Files\Microsoft Games\Solitaire\Solitaire.exe", vbNormalFocus) End Sub Private Sub CommandButton4_Click() Call Shell("C:\Program Files\Microsoft Games\FreeCell\FreeCell.exe", vbNormalFocus) End Sub Private Sub CommandButton5_Click() Call Shell("C:\Program Files\Microsoft Games\Hearts\Hearts.exe", vbNormalFocus) End Sub Private Sub CommandButton6_Click() Call Shell("C:\Program Files\Microsoft Games\Purble Place\PurblePlace.exe", vbNormalFocus) End Sub Private Sub CommandButton7_Click() Call Shell("C:\Program Files\Microsoft Games\Mahjong\Mahjong.exe", vbNormalFocus) End Sub Private Sub CommandButton8_Click() Call Shell("C:\Program Files\Microsoft Games\Minesweeper\Minesweeper.exe", vbNormalFocus) End Sub Private Sub CommandButton9_Click() Unload Me Application.Quit End Sub أما لو تحب استعماله مثل أى كود عادى بزر هيكون الكود بالشكل ده على سبيل المثال : Sub Chess() Call Shell("C:\Program Files\Microsoft Games\Chess\Chess.exe", vbNormalFocus) ActiveWindow.WindowState = xlMaximized End Sub وأى شىء تحت أمرك تقبل تحياتى

الأستاذ الفاضل حماده عمر يسعدنى ويشرفنى مروركم الكريم عذرا لتأخر الرد النت عندى منذ أيام كان لا يطاق لك منى

السلام عليكم ورحمة الله وبركاته أخى أبوالقبطان بارك الله فيكم وأسعد أيامنا وأيامكم جربت كل الأزرار لم أجد شيئا وان كان هناك خطأ لم ألحظه فما هو هذا الخطأ وفى أى زر لكى نشير اليه ويلتفت اليه الزملاء وعموما الملف الأصلى فى المرفقات ======= أخى منير بارك الله فيك وجازاكم خيرا Math By Mokhtar.rar

سلمت يداك الأخ والأستاذ الفاضل / شوقى ربيع جزاك الله كل خير وزادك الله من العلم الكثير والكثير ملحوظة : فى المشاركة الاولى الكود السطر 28 Application.Visible = True فى المثال العملى نفس السطر أصبح Application.Visible = False أنا استخدمت السطر Application.Visible = True لأنى أريد اختبار الفورم والاكسل متاح أمامى فتم تطبيق الشكل الذى اخترته على الفورم وعلى برنامج الاكسل معا فكيف يمكن تطبيق الاداة فقط على الفورم فقط دون الاكسل عندما يكون الاكسل متاحا تحياتي لك

أخى الفاضل بارك الله فيكم على ثقتكم بداية النت عندى الليلة ما شفت أسوأ منه فى حياتى ساعة عشان أعمل مشاركتين ودى احداهما استعن بالله ثم بالموضوع ده http://www.officena.net/ib/index.php?showtopic=60046 استخدم الملف Collect Workbooks فى تجميع البيانات خلى بالك من الاعتبارات الاتية كى تنجح فى تنفيذ مطلبك طبقا للكود : ملفاتك تكون بتنسيق xlsx و فى مجلد اسمه OUTPUT وفى نفس مسار ملف التجميع أتمنى لك التوفيق ولنا عودة حتى يتم اصلاح النت تحياتى أخوك حسن مختار أو مختار حسين كلاهما سيان

أخى الفاضل بارك الله فيكم على ثقتكم بداية النت عندى الليلة ما شفت أسوأ منه فى حياتى ساعة عشان أعمل مشاركتين ودى احداهما استعن بالله ثم بالموضوع ده http://www.officena.net/ib/index.php?showtopic=60046 استخدم الملف Collect Workbooks فى تجميع البيانات خلى بالك من الاعتبارات الاتية كى تنجح فى تنفيذ مطلبك طبقا للكود : ملفاتك تكون بتنسيق xlsx و فى مجلد اسمه OUTPUT وفى نفس مسار ملف التجميع أتمنى لك التوفيق ولنا عودة حتى يتم اصلاح النت تحياتى أخوك حسن مختار أو مختار حسين كلاهما سيان

أخى الفاضل بارك الله فيكم على ثقتكم بداية النت عندى الليلة ما شفت أسوأ منه فى حياتى ساعة عشان أعمل مشاركتين ودى احداهما استعن بالله ثم بالموضوع ده http://www.officena.net/ib/index.php?showtopic=60046 استخدم الملف Collect Workbooks فى تجميع البيانات خلى بالك من الاعتبارات الاتية كى تنجح فى تنفيذ مطلبك طبقا للكود : ملفاتك تكون بتنسيق xlsx فى مجلد اسمه OUTPUT وفى نفس مسار ملف التجميع أتمنى لك التوفيق ولنا عودة حتى يتم اصلاح النت تحياتى أخوك حسن مختار أو مختار حسين كلاهما سيان

أخى الفاضل بارك الله فيكم على ثقتكم بداية النت عندى الليلة ما شفت أسوأ منه فى حياتى ساعة عشان أعمل مشاركتين ودى احداهما استعن بالله ثم بالموضوع ده http://www.officena.net/ib/index.php?showtopic=60046 استخدم الملف Collect Workbooks فى تجميع البيانات خلى بالك من الاعتبارات الاتية كى تنجح فى تنفيذ مطلبك طبقا للكود : ملفاتك تكون بتنسيق xlsx فى مجلد اسمه OUTPUT وفى نفس مسار ملف التجميع أتمنى لك التوفيق ولنا عودة حتى يتم اصلاح النت تحياتى أخوك حسن مختار أو مختار حسين كلاهما سيان

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