عمر أبو صهيب قام بنشر مارس 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 بتنفيذ المهمة كما يقوم بها نقر الفأرة و جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 24, 2013 مشاركة قام بنشر مارس 24, 2013 السلام عليكم الاخ الحبيب / عمر أبو صهيب تفضل المطلوب اتبع الشرح الموجود في الصورة المرفقة وان شاء الله سيتم المطلوب معك جزاك الله خيرا اظهار نجوم في تكست بوكس.rar 1 رابط هذا التعليق شارك More sharing options...
عمر أبو صهيب قام بنشر مارس 24, 2013 الكاتب مشاركة قام بنشر مارس 24, 2013 السلام عليكم الاخ الحبيب / عمر أبو صهيب تفضل المطلوب اتبع الشرح الموجود في الصورة المرفقة وان شاء الله سيتم المطلوب معك جزاك الله خيرا اظهار نجوم في تكست بوكس.rar اللهم وفق أخي حمادة و ارحم والديه و سدد خطاه و أجعله ممن يشربون من حوض نبيك يوم القيامة آمين هذا هو المنهج الذي أحبه : لا تعطني سمكة و لكن علمني كيف أصطاد السمك رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 24, 2013 مشاركة قام بنشر مارس 24, 2013 (معدل) السلام عليكم الاخ الحبيب / عمر أبو صهيب بارك الله فيك واكرمك الله بدعائك لي وادعو لك بنفس دعائك اللهم ارحم والديه و سدد خطاه و أجعله اللهم ممن يشربون من حوض نبيك يوم القيامة جزاك الله خيرا تم تعديل بعض الكلمات بناءا علي ملاحظة الاخ الكريم / aspiran جزاه الله خيرا تم تعديل مارس 25, 2013 بواسطه حمادة عمر رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر مارس 24, 2013 مشاركة قام بنشر مارس 24, 2013 أخي الحبيب / حمادة عمر رائع كالعادة تسلم ايديك وجزاك الله خيرا أخي الحبيب / عمر أبو صهيب وفقك الله دائما ونفعك بما علمت وبارك الله لك تقبلوا تحياتي اخوكم ضاحي رابط هذا التعليق شارك More sharing options...
محمد مصطفى ابو حمزة قام بنشر مارس 25, 2013 مشاركة قام بنشر مارس 25, 2013 والله تستحقون كلكم هذا الدعاء واكثر فما اجمل هذا الإيثار وهذا العطاء وادعو لكل من فى المنتدى اللهم ارحم والديكم و سدد خطاكم و جعلكم ممن يشربون من حوض نبيينا يوم القيامة رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 25, 2013 مشاركة قام بنشر مارس 25, 2013 السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك مرورك علي الموضوعات يشرفنا ويسعدنا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 25, 2013 مشاركة قام بنشر مارس 25, 2013 والله تستحقون كلكم هذا الدعاء واكثر فما اجمل هذا الإيثار وهذا العطاء وادعو لكل من فى المنتدى اللهم ارحم والديكم و سدد خطاكم و جعلكم ممن يشربون من حوض نبيينا يوم القيامة الاخ الكريم / محمد مصطفى ابو حمزة جزاك الله خيرا بحبك لجميع اعضاء هذا المنتدي وان اقول خلف دعائك ومعي جميع اعضاء المنتدي .... اللهم آمييين رابط هذا التعليق شارك More sharing options...
الشيباني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 رابط هذا التعليق شارك More sharing options...
منير لبيب قام بنشر يوليو 21, 2014 مشاركة قام بنشر يوليو 21, 2014 هل يمكن جعل النجوم تظهر فى msgbox بدلا من النجوم رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر يوليو 22, 2014 مشاركة قام بنشر يوليو 22, 2014 اخواني الاعزاء تحية طيبه هل من امل في الحصول على رد مع الشكر رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها