أم عبد الله قام بنشر فبراير 19, 2013 قام بنشر فبراير 19, 2013 (معدل) الأخوة العزاء / أساتذة المنتدى الرائع السلام عليكم ورحمة الله وبركاته أولاً أشكر كل أساتذة هذا الصرح الكبير على ما يقدموه من معلومات مفيدة جداً للمبتدئين مثلي ويعجزي لساني على التعبير عن فرحتي بعمل افتتاحية بهذا الشكل بعد مذاكرة شرح الأستاذ / حمادة عمر ولا أدري هل ما عملته صحيح أم لا وجزاكم الله خيراً وجعل الله هذه الأعمال في ميزان حسانتكم. أمين يا رب العالمين. Book1.rar تم تعديل فبراير 19, 2013 بواسطه أم عبد الله
ضاحي الغريب قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم ورحمة الله وبركاته الاخت / أم عبدالله الشاشة الافتتاحية جميلة كل شيء مضبوط لا ينقص الا ان تغيري اسم الشيت من ورقة 1 الي Sheet1 مرفق صورة بالشرح وما شاء الله باكورة اعمالك قوية وبداية للابداع الشكر موصول لاخينا العزيز ا. حمادة عمر في شرحه وسرده لموضوع الشاشة الافتتاحية جعله الله في ميزان حسناته مع تمنياتي بالتوفيق
ضاحي الغريب قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 بالمرفقات الملف بعد تعديل اسم الشيت Book1_B.rar
أم عبد الله قام بنشر فبراير 20, 2013 الكاتب قام بنشر فبراير 20, 2013 أخي الفاضل/ ضاحي السلام عليكم ورحمة الله وبركاته لك جزيل الشكر على التعديل وما هى إلا تجربة أولى وإن شاء الله سوف أتعلم من هذا المنتدى الكثير والكثير كما تعلمت من قبل وزادكم الله علماً نافعاً وبارك الله فيكم جميعاً.
مجدى يونس قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 الاخت ام عبد الله هى تجربة اولى كما تذكرين لكن تنم على ذوق راقى فاهلا بك معنا بالمنتدى نتعلم اضافة بسيطة تعطيل زر الاغلاق للفورم واغلاقه فقط عن طريق الاجبار على ادخال السرى Book1_B.rar
ضاحي الغريب قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم وان شاء الله تتعلميين الكثير هنا في قلعتنا اوفيسنا وبطريقة اخري يمكنك التعديل في الكود بدون التعديل في اسم الورقة كالتالي غيري السطر If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then الي If TextBox1.Value = Sheets("ورقة1").[A1].Text And TextBox2.Value = Sheets("ورقة1").[A2].Text Then
أم عبد الله قام بنشر فبراير 20, 2013 الكاتب قام بنشر فبراير 20, 2013 (معدل) أستاذنا الجليل/ مجدي يونس السلام عليكم ورحمة الله وبركاته لكم كل الشكر والتقدير لإضافة الكود ومرورك على الموضوع والتعليق عليه شرف كبيراً جداً لي. أخي الفاضل/ ضاحي جزاك الله خيراً وأنا بالفعل غيرت اسم الشيت إلى ورقة 1 وتمت العملية بنجاح وكذلك غيرت اسم المستخدم ليظهر كـ ** ولا يظهر اسم المستخدم صريح والحمد الله تمت العملية بنجاح بفضل الله أولاً ثم تعلميات الأساتذة الأفاضل وتوجيهاتهم . وبارك الله فيهم جميعاً وزادهم الله من فضله وعلمه. تم تعديل فبراير 20, 2013 بواسطه أم عبد الله
مجدى يونس قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 الاخت ام عبد الله شكرا لكلاماتك والشرف لنا وان شاء الله نرى اعمالك المميزة
رجب جاويش قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم كل التحية لجميع إخوتى المشاركين فى هذا الموضوع هذه بعض الاضافات البسيطة Book1.rar
حمادة عمر قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم الاستاذ / مجدى يونس جميل جدا جميع مشاركتك فكلها افادة دائماً جزاك الله خيرا 1
حمادة عمر قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم الاستاذ العملاق / رجب جاويش لمساتك اقل ما يقال عنها انها (( سحرية )) جعلك الله دائماً في عوننا نحن تلاميذك جزاك الله خيرا
حمادة عمر قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكمالاخ الفاضلة / أم عبد الله اعتقد ان اسعد شخص بهذا الموضوع هو انا حيث اشعر انني افيد ولو بجزء بسيط جداً لاخوتي في هذا الصرح الكبيروان شخصاً ما قد استفاد من موضوع لي فكل الشكر والامتنان لكي لمنحي هذا الشرفورااائع جداً شاشتك الجميلة وهي بداية لكي لمشوار طويل من الابداع والروعة ... ( باذن الله ) واليك اختي الكريمة الكود التالي يمكنك به وضع اسم المستخدم وكلمة المرور في الكود نفسه دون الحاجة لكتابتهم او ربطهم بالخلايا A1 ، A2وهو ان تقومي باستبدال الكود التالي والموجود في ملفك الجميل والخاص بزر الدخول CommandButton1 Private Sub CommandButton1_Click() If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub بالكود التالي Private Sub CommandButton1_Click() If TextBox1.Value = "SAMA" And TextBox2.Value = 12345 Then Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub وبهذا الكود تكون اسم المستخدم SAMA وكلمة المرور 12345 كما في الكود السابق في السطر If TextBox1.Value = "SAMA" And TextBox2.Value = 12345 Then وطبعا يمكنك التعديل مكان الكلمتين في الكود لتغيير اسم المستخدم وكلمه المرور كما تريدينارجو من الله ان يستفاد منه ولو جزء بسيط جزاك الله خيراً
مجدى يونس قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 الاخ / رجب جاويش عملك رائع واضافة جميلة الاخ / حمادة عمر شكرا لك والموضوع يخصك وشيء جميل ان الشخص يرى نتيجة اعماله فبالتوفيق ان شاء الله
حمادة عمر قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم الاستاذ الكريم / مجدى يونس بارك الله فيك دائما تشجعني وتدفعني للامام جزاك الله خيرا
أم عبد الله قام بنشر فبراير 20, 2013 الكاتب قام بنشر فبراير 20, 2013 الأستاذ الجليل / رجب جاويش عملك رائع والكود جميل جداً وبسيط. جزاك الله خيراً وزادك الله علماً نافعاً الاخ الفاضل الأستاذ/ حمادة عمر ألف مليون شكر على هذا الثناء وانا لا أستحقه والذين يستحقون هذا الثناء والمدح حضرتك وأساتذة هذا الصرح الكبير بارك الله فيكم جميعاً
حمادة عمر قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 السلام عليكم الاخت الفاضلة / أم عبد الله جزاك الله خيرا والي الامام دائماً
جلال محمد قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 اخواني الكرام اسمحو لي بهذه الاضافة البسيطة وذلك لاظهار ما تعلماناه في هذا المنتي الرائع اجبار الاكسل علي الفتح علي ( ورقة1 ) والغلق علي ( ورقة2 ) شاشة افتتاحية.rar
حمادة عمر قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 جميل جدا مشاركتك اخي الكريم / جلال محمد جزاك الله خيراً
رجب جاويش قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 أخى الحبيب / حمادة عمر جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة
رجب جاويش قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 أستاذى الفاضل / مجدى يونس جزاك الله كل خير استاذى الفاضل على هذه الكلمات الطيبة
رجب جاويش قام بنشر فبراير 20, 2013 قام بنشر فبراير 20, 2013 الاخت الفاضلة / أم عبد الله جزاك الله كل خير أختى الفاضلة على الكلمات الطيبة
فتحى ابوالفضل قام بنشر مايو 1, 2013 قام بنشر مايو 1, 2013 الأخوة الاعزاء الأخت أم عبدالله و الأخوة المبدع ضاحي الغريب و المبتكر مجدي بونس وخبير الاكسل رجب جاويش وخبير الاكسل المبجل حمادة عمر و العبقري الفذ جلال محمد تحيه اجلال و تعظيم اخوكم مبتدئ أرجو من سيادتكم شرح كيفية انشاء الشاشة الافتتاحية خطوة خطوة من البداية و حتى النهاية وليت بالصور حيث انني ارغب في صنع ملف خاص بالمرتبات بمدرستي و احتاج الى شاشة افتتاحية من يوزرنيم و باسورد مع اضافة صلاحيات المستخدمين حتى يستطيع كل مستخدم ان يغير الباسورد و اليوزرنم حسب ما يشاء اشكركم جميعاً
مجدى يونس قام بنشر مايو 1, 2013 قام بنشر مايو 1, 2013 الاخ فتحى يوجد موضوع بالمنتدى باسم طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة على الرابط http://www.officena.net/ib/index.php?showtopic=45232 للاخ حماده فيه ماتطلب واى استفسار اطلبه منه فى الموضوع اخر اعمالى http://www.officena.net/ib/index.php?showtopic=46472
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.