نجوم المشاركات

بسم الله الرحمن الرحيم بلاش الشتيمة والسلام عليكم move.rar

بسم الله الرحمن الرحيم ميزه وخاصية ممتازه وهى Flash Fill Excel 2013 (تعبئة سريعة) تغنيك عن استخدام صيغ ومعادلات ..الخ . اتمنى ان تفيدكم . ولاتنسونا بصالح دعاؤكم https://www.youtube.com/watch?v=OZyrmcInZLU flash fill.rar

السلام عليكم ورحمة الله نقدم لكم كلمة مرور عن طريق توليد رقم عشوائي شرح الطريقة فتح ملف جديد وإضافة التالي 1 - فورم ونسميه Form1 2 - مربع نص ونسميه Txt1 3 - زر امر ونسميه Cmd_LogoIn وقبل ان نتطرق للفورم والكود نذهب اولا إلي الصفحة (الشيت) ونختار الخلية [IV1] تستطيع تغييرها حسب رغبتك ونضع بداخلها المعادلة التالية : =RANDBETWEEN(999999;9999999) وهي تقوم بتوليد رقم عشوائي بتكوًن بين 9,999,999 وبين 9,999,999 وتستطيع التغيير إلي الأكثر او الأقل حسب ماتراة مناسب . ثم نذهب للخلية [IV3] ونضع بها المعادلة التالية : =LEFT(IV2;3)+RIGHT(IV2;2) وهي تأخذ اول ثلاثة ارقام من يسار الرقم بالخلية [IV2] وأول رقمين من يمين الخلية المذكورة. وقيمة الخلية [IV2] يتكون عن طريق الكود في حدث تنشيط الفورم وهو يساوي قيمة الخلية التي يتم توليد الأرقام العشوائية فيها وهو [IV2] = [IV1.Value Private Sub UserForm_Activate() ' لاحظ الخلية [IV2] تساوي الخلية [IV1] وهي التي تقوم بتوليد الرقم العشوائي [IV2] = [IV1].Value 'لاحظ هنا عنوان الفورم هو الرقم العشوائي Form1.Caption = [IV2] End Sub ولاحظ ان الرقم العشوائي يظهر بعنوان الفورم وبتغيًر كل مرة يظهر فيها الفورم ولإستخراج كلمة المرور منه مثال ان الرقم العشوائي 760340 فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي 800 . تستطيع ان تأخذ رقمين او ثلاثة ..إلخ من يسار الرقم العشوائي او رقمين او ثلاثة اواكثر من يمينه وبعد ذلك تجمع او تطرح والنتيجة في الخلية [IV3] كل ذلك يتم في في المعادلة ادناه : =LEFT(IV2;3)+RIGHT(IV2;2) وهذا الكود البسيط مع الشرح : Private Sub Cmd_LogoIn_Click() 'إذا كان مربع النص التكست ون يساوي فراغ If Txt1.Text = vbNullString Then 'إذا اخرج من الإجراء الفرعي Exit Sub 'غير ذلك إذا كان مربع النص لايساوي قيمة الخلية[IV3] ElseIf Txt1.Text <> [IV3].Value Then 'إذا رسالة توضح ان كلمة المرور غير صحيحة MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "ÇáÊÃßÏ ãä ßáãÉ ÇáãÑæÑ" 'غير ذلك إذا كان مربع النص بيساوي [IV3] ElseIf Txt1.Text = [IV3].Value Then 'إذا رسالة توضيحية احسنت MsgBox "ÇÍÓäÊ" 'اجعل تطبيقات الاكسل مرئية Application.Visible = True 'إخفاء الفورم Unload Me ' End If End Sub اخيكم في الله أبو الحسن والحسين مرفق مثال شاشة دخول - تغيير الباسورد عشوائي.rar

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

هههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههه حرام عليك والله هموت من الضحك

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

السلام عليكم ورحمة الله اخواني الأعزاء وائل الاسيوطي ومحمد حسن المحمدي أبو يوسف اسرني واسعدني مروركم العطر بارك الله فيكم وجزاكم الله خير الأخ الفاضل الأستاذ / مختار حسين الأخ وائل الاسيوطي في المرفق تم إضافة عداد لمحاولة إدخال كلمة المرور حسب نصيحة استاذنا /مختار حسين تستطيع إضافة حروف ,كلمات, ارقام، علامات وهي التي بين علامتي التنصيص قبل وبعد كلمة المرور المستخرجة من الرقم العشوائي الخلية [IV3].Text هي ناتج توليد الرقم العشوائي بالخلية [IV1].Text عن طريق [IV2].Text والتي تأخذ 3 ارقام من آخر الرقم العشوائي ورقمين من اوله للعلم والاحاطة فقط If Txt1.Text = "هنا تقدر تضع كلمة او حروف او ارقام او علامات" & [IV3].Text & "هنا تقدر تضع كلمة او حروف او ارقام او علامات" Then في الكود ادناة تضع الحروف قيل وبعد. مثال / الرقم العشوائي 760340 فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي kh800mb . لما تكون الحروف إنجليزية تنتـــه لإدخالات الحروف كبيرة او صغيرة ادخلها حسب برمجتك لها. If Txt1.Text = "kh" & [IV3].Text & "mb" Then او تجعل الحروف قبــــــــــــــل فقط وستكون كلمة المرور كالتالي khmb800 وتنتبــــــــــــــه ان تكون KHMB800 مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره (" khmb" ) او ("khmb "). If Txt1.Text = "khMB" & [IV3].Text Then او تجعل الحروف بعـــــــــــــــد فقط وستكون كلمة المرور كالتالي 800khmb وتنتبــــــــــــــه ان تكون 800KHMB مع دقة الملاحظة في أي فراغ في علامتي التنصيص قبل او بعد الكلمة او الحرف او غيره (" khmb" ) او ("khmb "). مع ملاحظة الكلمة هنا هي بالحروف الكبيرة. If Txt1.Text = [IV3].Text & "KHMB" Then مرفق الملف وكلمة المرور هي بين كلمتي KH.....MB If Txt1.Text = "kh" & [IV3].Text & "mb" Then شاشة دخول - تغيير الباسورد عشوائي.rar

رووووووووووووووووووووووح يا شيخ منك لـ اللى كلت دراع جوزها

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

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

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

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

السلام عليكم ورحمة الله وبركاته ****************** نويت بإذن الله تعالى - والله الموفق - أن أقوم بالبدء في هذا المشروع الكبير الذي أطلقت عليه اسم (مكتبة الصرح .. زاخرة بالشرح) بحثت عن ملف الأستاذ الكبير عبد الله باقشير (محفظة الأكواد) للعمل عليه .. ** رجاء من الأخ عبد الله .. إضافة للفورم في هذا الملف أن تكون عملية البحث غير مقتصرة على عناوين الأكواد فقط ، بل تشمل عمليه البحث الـ ListBox الذي يحوي الأكواد نفسها ، وكذلك صفحة التعليمات ، حتى يسهل فيما بعد على الباحث أن يصل لمراده بسهولة .. الأمر مختلف قليلاً عما قدم من قبل ، إذ أن الأكواد ستكون مصحوبة بالشرح (على قدر استطاعتي ) ولمن أراد أن يزيد على الشرح فليفعل ولا يتردد.. من هنا بإذن الله ستكون الإنطلاقة الكبرى نحو المشروع الكبير .. وسأحاول جاهداً أن أبدأ عملية بناء المكتبة بشكل منظم يسهل على الباحث فيما بعد الوصول للكود الذي يرغبه ، ويعرف كيف يقوم بتطبيق الكود بنفسه دون الحاجة لغيره .. يعني مبدأ الاعتماد على النفس في تطبيق الأكواد.. وإليكم الملف المرفق به 5 أكواد فقط مدعومة بالشرح منها 3 اكواد بسيطة ، وكود صعب قليلا ، ودالة معرفة UDF كنقطة بداية .. ملحوظة الأكواد مدعومة بالشرح في صفحة التعليمات . أرجو أن ينال رضاكم ... ولا تنسوا التصحيح والتنقيح إخواني أولاً بأول ، حتى يخرج العمل في النهاية بشكل لائق يليق بمنتدانا .. يليق بالصرح العملاق ولذا أسميت المشروع (مكتبة الصرح والصرح المقصود به منتدانا الغالي .. وإن شاء الله تكون المكتبة زاخرة وممتلئة بالشرح بعون الله وتوفيقه ثم بجهودكم ومساندتكم للمشروع) Codes Library.rar

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

انت بالذات ياناصر استني مني اكتر من ان الكومند يجري منك دا انا هخليه ينفجر في وشك مقلتش هاااا اختارت ايه دي انتخابات نزيهه نعم ولا ايه

ههههههههههه ههههههههههههههه والله لو نعم مزعلاك خليها yyyyyyes يعنى ياأبوالعربى ناوى تقطع نفسنا اضحك الله سنك وبارك فيك

أخي الكريم المتميز ياسر العربي مشكور على الملف القيم .. والمداعبة اللطيفة بس صاحبك عارف الخدعة دي من زمان .. ومن غير ما أفكر حاولت استخدام مفتاح التاب ..منفعش ..استخدمت الأسهم وخلصت الحكاية بدري بدري وتسلم يا معلم لا حرمنا الله من جديدك أعجبني مراعاة التعامل في الكود ليناسب نظام 64 بت ولم يعجبني أنك أهملت Option Explicit والإعلان عن المتغيرات (يراعى مستقبلاً هذه الأمور التي قد تبدو تافهة) وأفضل أيضاً شرح آليات الملف ..أي الخطوات التي قمت بها ليستفيد الجميع ..كفانا ملفات جاهزة ..نريد ان ننطلق للعالمية يا عربي أقصد بالخطوات ..قم بوضع زر أمر وأعطه اسم برمجي كذا وعنوان كذا ولو غيرت في خاصية محددة تذكرها وهكذا وهكذا .. تقبل وافر تقديري واحترامي

يلا بقى مش مشكلة يا صاحبى مقبولة منك يا حبيب قلبى

1.rar السلام عليكم ورحمة الله باستعمال عمود إضافي ومعادلات بسيطة (تجنبا لمعادلات الصفيف)... بن علية 1.rar

ما هو مفيش حل تانى غير نعم مفيش فايدة مش هافضل أجرى ورا لأ

خلينا حبايب أحسن بلاش

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

تفضل ابو يوسف المثال حسب فهمي اختر اسم المكتب من القائمة للفتح تقرير اجمالي مدارس حسب مكتب المختار SchoolR.rar

تقدر تحدد لا من خلال اسهم الاتجاهات عرفتها بعد مالبستها اول مره يالا أعيش واخد غيرها

أخي الحبيب ياسر ما شاء الله بارك الله أعتذر عن التكرار بسبب بطء الإنترنت والسلام عليكم

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

بعد اذن اخي العيدروس تفضل اخي أبو زيد عند الضغد على كلوس يدخل الى البرنامج بدون كتابة رمز الدخول_111.rar

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

استاذ حسام ابداع جدير يتفجر فى موقع الخبراء جزاك الله كل خيراً

الغينا تفعيل زر الخروج ان شاء الله يعمل معك تفضل المرفق عند الضغد على كلوس يدخل الى البرنامج بدون كتابة رمز الدخول_111.rar

شكرااا

السلام عليكم عبر حدث Close للفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True '' غير فعال ' Cancel = False '' فعال End Sub

أخي الحبيب محمد الريفي بارك الله فيك وجزاك الله كل خير على الموضوع الرائع والمتميز خاصية جميلة يجهلها الكثيرون

تحية طيبة اخي ياسر الف شكر على المساعدة

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

أسعد الله أوقاتكم بكل خير فيما يلي الدرس العشرون من دورة "إكسيل 2013 المستوى المتقدم" بعنوان الرسومات البيانية المتقدمة -الجزء الرابع التعامل مع البيانات المفقودة ملاحظة/ ينصح بشدة متابعة الدرس الخاص بالرسومات البيانية من دورة (مهارات اكسيل 2013) على الرابط التالي قبل متابعة هذا الدرس حيث أننا نفترض بالمشاهد الكريم معرفة مسبقة بأساسيات الرسم البياني في اكسيل أساسيات الرسومات البيانية في إكسيل 2013 أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير

اتمنى ان يكون المطلوب في الملف المرفق تنسيق شرطي للصف.rar

أساتذتي الكرام .أستاذنا الجليل أبو نصار السلام عليكم ورحمة الله وبركاته عمل رائع ومبهر ..يستحق الشكر والإعجاب لأنه يماثل نظام القوائم الذي اعتدنا عليه في الأوفيس والشكر موصول لصاحب الفكرة الذهبية الأستاذ الكريم سعد عابد والسلام عليكم.

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

ممكن تتحايل بتغيير الامتداد وبعدين بعد الارسال يتم استلام الملف اعادة الامتداد كما كان يعني exe خليها Zip Rar; Xls بعد الاستلام نرجعه Exe

السلام عليكم الموضوع ليس له علاقة بالصلاحيات هل يمكنك وضع تفاصيل اكثر مثل ضورة الشاشة التي تظهر لك لاتواصل مع الدعم الفني للشركة المطلوب : اصدار نظام تشغيل الموبايل الموضوع الرسالة التي تظهر لك

تفضل http://www.accesswordkingdome.com/forum/forum/الأكاديمية-ردود-فقط/أفكارٌ/210356-أدوات-مُساعدة-لإنشاء-وتصميم-البرامج

السلام عليكم ربما فهمت طلبك شوف الكود بيشيك على العمود "F" وبموجب الدمج الذي في العمود "F" بيعمل مثله في العمود "J" مع الاحتفاظ بقيم الخلايا المدموجه + جمعها بمعنى اذا العمود "F" ليس به خلايا مدموجه لم ينفذ شيء الكود جرب الكود Sub Ali_Merg() Dim Rng As Range Dim Rm As Range Dim My_r As Range Dim X_r As Double 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx For Each Rng In Range("F6:F20") If Rng.MergeCells Then If Not Rng Is Nothing Then If Rm Is Nothing Then Set Rm = Rng.Offset(0, 4) Else Set Rm = Union(Rm, Rng.Offset(0, 4)) End If End If Next 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx If Not Rm Is Nothing Then For Each My_r In Rm.Areas X_r = Alr_Cn(My_r) With My_r .ClearContents .Merge .Value = X_r End With Debug.Print X_r Next End If Set Rng = Nothing: Set Rm = Nothing Set My_r = Nothing 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx End Sub Private Function Alr_Cn(R As Range) As Currency Dim i Dim Sm As Double With R For i = 1 To .Rows.Count Sm = Sm + .Cells(i, 1) Next i If Sm Then Alr_Cn = Sm End With End Function تحياتي او هكذا حسب التحديد الحالي يعني تضلل مثلا 5 سطور وتظغط كنترول وتضلل 5 سطور اخر في العمود "J" وهكذا وبعد التضليل شغل الكود Sub Ali_Merg() Dim My_r As Range Dim X_r As Double 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx For Each My_r In Selection.Areas X_r = Alr_Cn(My_r) With My_r .ClearContents .Merge .Value = X_r End With Next Set My_r = Nothing 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx End Sub Private Function Alr_Cn(R As Range) As Currency Dim i Dim Sm As Double On Error Resume Next With R For i = 1 To .Rows.Count Sm = Sm + .Cells(i, 1) Next i If Sm Then Alr_Cn = Sm End With On Error GoTo 0 End Function

أستاذى وأبى الحبيب / محمد حسن المحمد لفتة كريمة من إنسان وأب أكرم أسأل الله العلى القدير أن يزيدك من علمه وفضلة ويديم عليك الصحة والعافية عمل أكثر من رائع تقبل خالص تحياتى وتقديرى

لاتنسى انه لن يتفعل على شرط الا بعد التاريخ او الايام المضافه؟ لذا اذا تاريخ اليوم لايساوي التاريخ المحدد المضاف له 3 يوم او 6 يوم او 9 يوم سيكون الباسورد 123 اذا اردت ان تعرف مااقصد اذهب الى السطر التالي في الداله Ch_Date = DateSerial(Year(Date), Month(Date), Day(Date)) وغيره بهذا اي بعد مرور 3 ايام Ch_Date = "2015/12/31" بعد الحفظ وفتح الملف مره اخرى لن يقبل الا بالباسورد "الحمد لله" شاشة دخول - تغيير الباسورد_111.rar

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

المشكله عندك اخي هل انت مفعل امان الماكرو منخفض ام لا ؟ اتبع الفيديو في المرفق اذا لاتعرف الطريقه لتفعيل الماكرو تفعيل الماكرو.rar

الله يشفيه ويعافيه ويقومه بالسلامه .. آمين .. ويشفي مرضانا ومرضى المسلمين اجمعين.

لا حول ولاقوة الا بالله والله كنت حاسس ان غيابه عنا انه لعذر سبحان الله اللهم اشفه وعافه برحمتك ولطفك يا ارحم الراحمين ! وبلغه سلامنا اخي عبدالرحمن اذا كان هناك تواصل معه ! ونحن في الخدمة واي وقت وقدر المستطاع ! تحياتي

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