هل هذه الشاشة الافتتاحية صحيحة

[أم عبد الله]

الأخوة العزاء / أساتذة المنتدى الرائع

 

السلام عليكم ورحمة الله وبركاته

 

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

أمين يا رب العالمين.

Book1.rar

تم تعديل فبراير 19, 2013 بواسطه أم عبد الله

[ضاحي الغريب]

السلام عليكم ورحمة الله وبركاته

الاخت / أم عبدالله

الشاشة الافتتاحية جميلة كل شيء مضبوط لا ينقص الا ان تغيري اسم الشيت من ورقة 1 الي Sheet1 مرفق صورة بالشرح

وما شاء الله باكورة اعمالك قوية وبداية للابداع 

الشكر موصول لاخينا العزيز ا. حمادة عمر في شرحه وسرده لموضوع الشاشة الافتتاحية جعله الله في ميزان حسناته

مع تمنياتي بالتوفيق

[ضاحي الغريب]

بالمرفقات الملف بعد تعديل اسم الشيت

Book1_B.rar

[أم عبد الله]

أخي الفاضل/ ضاحي

 

السلام عليكم ورحمة الله وبركاته

لك جزيل الشكر على التعديل وما هى إلا تجربة أولى وإن شاء الله سوف أتعلم من هذا المنتدى الكثير والكثير كما تعلمت من قبل وزادكم الله علماً نافعاً وبارك الله فيكم جميعاً.

[مجدى يونس]

الاخت ام عبد الله

هى تجربة اولى كما تذكرين لكن تنم على ذوق راقى

فاهلا بك معنا بالمنتدى نتعلم

اضافة بسيطة تعطيل زر الاغلاق للفورم واغلاقه فقط عن طريق الاجبار على ادخال السرى

Book1_B.rar

[أبو محمد أشرف]

رائع ما شاء الله

[مجدى يونس]

شكرا يااخ اشرف

[ضاحي الغريب]

السلام عليكم 

وان شاء الله تتعلميين الكثير هنا في قلعتنا اوفيسنا وبطريقة اخري يمكنك التعديل في الكود بدون التعديل في اسم الورقة كالتالي

غيري السطر

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

[أم عبد الله]

أستاذنا الجليل/ مجدي يونس

 

السلام عليكم ورحمة الله وبركاته

لكم كل الشكر والتقدير لإضافة الكود ومرورك على الموضوع والتعليق عليه شرف كبيراً جداً لي.

 

أخي الفاضل/ ضاحي

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

تم تعديل فبراير 20, 2013 بواسطه أم عبد الله

[مجدى يونس]

الاخت ام عبد الله

شكرا لكلاماتك

والشرف لنا وان شاء الله نرى اعمالك المميزة

[رجب جاويش]

السلام عليكم

كل التحية لجميع إخوتى المشاركين فى هذا الموضوع

هذه بعض الاضافات البسيطة

 

Book1.rar

[حمادة عمر]

السلام عليكم

الاستاذ / مجدى يونس

 

جميل جدا جميع مشاركتك فكلها افادة دائماً

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

 

لمساتك اقل ما يقال عنها انها (( سحرية ))

جعلك الله دائماً في عوننا نحن تلاميذك

جزاك الله خيرا

[حمادة عمر]

السلام عليكم
الاخ الفاضلة / أم عبد الله
 
اعتقد ان اسعد شخص بهذا الموضوع هو انا حيث اشعر انني افيد ولو بجزء بسيط جداً لاخوتي في هذا الصرح الكبير
وان شخصاً ما قد استفاد من موضوع لي فكل الشكر والامتنان لكي لمنحي هذا الشرف
ورااائع جداً شاشتك الجميلة وهي بداية لكي لمشوار طويل من الابداع والروعة ... ( باذن الله )
 
واليك اختي الكريمة الكود التالي يمكنك به وضع اسم المستخدم وكلمة المرور في الكود نفسه دون الحاجة لكتابتهم او ربطهم بالخلايا 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

وطبعا يمكنك التعديل مكان الكلمتين في الكود لتغيير اسم المستخدم وكلمه المرور كما تريدين
ارجو من الله ان يستفاد منه ولو جزء بسيط
جزاك الله خيراً

[مجدى يونس]

الاخ / رجب جاويش

عملك رائع واضافة جميلة

الاخ / حمادة عمر

شكرا لك والموضوع يخصك وشيء جميل ان الشخص يرى نتيجة اعماله فبالتوفيق ان شاء الله

[حمادة عمر]

السلام عليكم

الاستاذ الكريم / مجدى يونس

بارك الله فيك

دائما تشجعني وتدفعني للامام

جزاك الله خيرا

[أم عبد الله]

الأستاذ الجليل / رجب جاويش

 

عملك رائع والكود جميل جداً وبسيط. جزاك الله خيراً وزادك الله علماً نافعاً

الاخ الفاضل الأستاذ/ حمادة عمر

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

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / أم عبد الله

 

جزاك الله خيرا

والي الامام دائماً

[جلال محمد]

اخواني الكرام

اسمحو لي بهذه الاضافة البسيطة وذلك لاظهار ما تعلماناه في هذا المنتي الرائع

اجبار الاكسل علي الفتح علي ( ورقة1 ) والغلق علي ( ورقة2 )

شاشة افتتاحية.rar

[حمادة عمر]

جميل جدا مشاركتك

اخي الكريم / جلال محمد

جزاك الله خيراً

[رجب جاويش]

أخى الحبيب / حمادة عمر

جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

[رجب جاويش]

أستاذى الفاضل / مجدى يونس

جزاك الله كل خير استاذى الفاضل على هذه الكلمات الطيبة

[رجب جاويش]

الاخت الفاضلة / أم عبد الله

جزاك الله كل خير أختى الفاضلة على الكلمات الطيبة

 

[فتحى ابوالفضل]

الأخوة الاعزاء

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

تحيه اجلال و تعظيم

اخوكم مبتدئ

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

اشكركم جميعاً

[مجدى يونس]

الاخ فتحى

يوجد موضوع بالمنتدى باسم طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة

على الرابط

http://www.officena.net/ib/index.php?showtopic=45232

للاخ حماده فيه ماتطلب

واى استفسار اطلبه منه فى الموضوع

اخر اعمالى

http://www.officena.net/ib/index.php?showtopic=46472