عمر أبو صهيب قام بنشر مارس 24, 2013 قام بنشر مارس 24, 2013 عندي كود لإدخال رقم سري في فورم Private Sub Label2_Click () If TextBox1.Value = "12345" Then Unload Me UserForm2.Hide Exit Sub End If TextBox1.Value = "" TextBox1.SetFocus End Sub لكن الرقم السري يظهر ... ما أرغب فيه : 1/ أن يظهر الرقم السري على شكل نجوم 2/ أن يقوم الزر ENTRE بتنفيذ المهمة كما يقوم بها نقر الفأرة و جزاكم الله خيرا
حمادة عمر قام بنشر مارس 24, 2013 قام بنشر مارس 24, 2013 السلام عليكم الاخ الحبيب / عمر أبو صهيب تفضل المطلوب اتبع الشرح الموجود في الصورة المرفقة وان شاء الله سيتم المطلوب معك جزاك الله خيرا اظهار نجوم في تكست بوكس.rar 1
عمر أبو صهيب قام بنشر مارس 24, 2013 الكاتب قام بنشر مارس 24, 2013 السلام عليكم الاخ الحبيب / عمر أبو صهيب تفضل المطلوب اتبع الشرح الموجود في الصورة المرفقة وان شاء الله سيتم المطلوب معك جزاك الله خيرا اظهار نجوم في تكست بوكس.rar اللهم وفق أخي حمادة و ارحم والديه و سدد خطاه و أجعله ممن يشربون من حوض نبيك يوم القيامة آمين هذا هو المنهج الذي أحبه : لا تعطني سمكة و لكن علمني كيف أصطاد السمك
حمادة عمر قام بنشر مارس 24, 2013 قام بنشر مارس 24, 2013 (معدل) السلام عليكم الاخ الحبيب / عمر أبو صهيب بارك الله فيك واكرمك الله بدعائك لي وادعو لك بنفس دعائك اللهم ارحم والديه و سدد خطاه و أجعله اللهم ممن يشربون من حوض نبيك يوم القيامة جزاك الله خيرا تم تعديل بعض الكلمات بناءا علي ملاحظة الاخ الكريم / aspiran جزاه الله خيرا تم تعديل مارس 25, 2013 بواسطه حمادة عمر
ضاحي الغريب قام بنشر مارس 24, 2013 قام بنشر مارس 24, 2013 أخي الحبيب / حمادة عمر رائع كالعادة تسلم ايديك وجزاك الله خيرا أخي الحبيب / عمر أبو صهيب وفقك الله دائما ونفعك بما علمت وبارك الله لك تقبلوا تحياتي اخوكم ضاحي
محمد مصطفى ابو حمزة قام بنشر مارس 25, 2013 قام بنشر مارس 25, 2013 والله تستحقون كلكم هذا الدعاء واكثر فما اجمل هذا الإيثار وهذا العطاء وادعو لكل من فى المنتدى اللهم ارحم والديكم و سدد خطاكم و جعلكم ممن يشربون من حوض نبيينا يوم القيامة
حمادة عمر قام بنشر مارس 25, 2013 قام بنشر مارس 25, 2013 السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك مرورك علي الموضوعات يشرفنا ويسعدنا جزاك الله خيرا
حمادة عمر قام بنشر مارس 25, 2013 قام بنشر مارس 25, 2013 والله تستحقون كلكم هذا الدعاء واكثر فما اجمل هذا الإيثار وهذا العطاء وادعو لكل من فى المنتدى اللهم ارحم والديكم و سدد خطاكم و جعلكم ممن يشربون من حوض نبيينا يوم القيامة الاخ الكريم / محمد مصطفى ابو حمزة جزاك الله خيرا بحبك لجميع اعضاء هذا المنتدي وان اقول خلف دعائك ومعي جميع اعضاء المنتدي .... اللهم آمييين
الشيباني1 قام بنشر يوليو 20, 2014 قام بنشر يوليو 20, 2014 اخواني الاعزاء تحية طيبه ظهرت الحاجه للرجوع الى هذا الموضوع للاستفاده منه في احد البرامج التي اعمل عليها وهي المساعده في اخفاء الباسوورد الذي يتضمنه الكود المرفق حيث ليس فيه ( تكست بوكس ) واظهار نجوم بدل الارقام مع الشكر Sub showo() Dim ws As Worksheet If InputBox(" your pass") = "987654" Then For Each ws In ThisWorkbook.Worksheets If ws.Name = "invoice" Then ws.Visible = xlSheetVisible End If Next ws End If End Sub
منير لبيب قام بنشر يوليو 21, 2014 قام بنشر يوليو 21, 2014 هل يمكن جعل النجوم تظهر فى msgbox بدلا من النجوم
الشيباني1 قام بنشر يوليو 22, 2014 قام بنشر يوليو 22, 2014 اخواني الاعزاء تحية طيبه هل من امل في الحصول على رد مع الشكر
أ / محمد صالح قام بنشر أغسطس 3, 2014 قام بنشر أغسطس 3, 2014 اخواني الاعزاء تحية طيبه ظهرت الحاجه للرجوع الى هذا الموضوع للاستفاده منه في احد البرامج التي اعمل عليها وهي المساعده في اخفاء الباسوورد الذي يتضمنه الكود المرفق حيث ليس فيه ( تكست بوكس ) واظهار نجوم بدل الارقام مع الشكر Sub showo() Dim ws As Worksheet If InputBox(" your pass") = "987654" Then For Each ws In ThisWorkbook.Worksheets If ws.Name = "invoice" Then ws.Visible = xlSheetVisible End If Next ws End If End Sub تفضل أخي الكريم هذا الكود كنت أستعمله في الأكسس وقمت بتجربته في الإكسل فعمل بصورة رائعة كود لجعل كلمة المرور في inputbox تظهر كنجوم تجده في المرفق ومثال على استخدامه inputbox with password mask.rar 2
الردود الموصى بها