اذهب الي المحتوي
أوفيسنا

كود لإظهار الرقم السري على شكل نجوم


الردود الموصى بها

عندي كود لإدخال رقم سري في فورم

 

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 بتنفيذ المهمة كما يقوم بها نقر الفأرة

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

رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / عمر أبو صهيب

 

تفضل المطلوب 

اتبع الشرح الموجود في الصورة المرفقة

وان شاء الله سيتم المطلوب معك

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

 

اظهار نجوم في تكست بوكس.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / عمر أبو صهيب

 

تفضل المطلوب 

اتبع الشرح الموجود في الصورة المرفقة

وان شاء الله سيتم المطلوب معك

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

 

attachicon.gifاظهار نجوم في تكست بوكس.rar

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

آمين

هذا هو المنهج الذي أحبه : لا تعطني سمكة و لكن علمني كيف أصطاد السمك

رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / عمر أبو صهيب

 

بارك الله فيك

واكرمك الله بدعائك لي

وادعو لك بنفس دعائك

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

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

 

تم تعديل بعض الكلمات بناءا علي ملاحظة الاخ الكريم / aspiran   جزاه الله خيرا

تم تعديل بواسطه حمادة عمر
رابط هذا التعليق
شارك

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

رائع كالعادة تسلم ايديك 

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

أخي الحبيب / عمر أبو صهيب

وفقك الله دائما ونفعك بما علمت وبارك الله لك

تقبلوا تحياتي

اخوكم ضاحي

رابط هذا التعليق
شارك

والله تستحقون كلكم هذا الدعاء واكثر فما اجمل هذا الإيثار وهذا العطاء وادعو لكل من فى المنتدى

اللهم ارحم والديكم و سدد خطاكم و جعلكم ممن يشربون من حوض نبيينا يوم القيامة

رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / ضاحي الغريب

 

بارك الله فيك

مرورك علي الموضوعات يشرفنا ويسعدنا

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

رابط هذا التعليق
شارك

والله تستحقون كلكم هذا الدعاء واكثر فما اجمل هذا الإيثار وهذا العطاء وادعو لكل من فى المنتدى

اللهم ارحم والديكم و سدد خطاكم و جعلكم ممن يشربون من حوض نبيينا يوم القيامة

 

الاخ الكريم / محمد مصطفى ابو حمزة

جزاك الله خيرا بحبك لجميع اعضاء هذا المنتدي

وان اقول خلف دعائك ومعي جميع اعضاء المنتدي  .... اللهم آمييين

رابط هذا التعليق
شارك

  • 1 year later...

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

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
رابط هذا التعليق
شارك

  • 2 weeks later...

 

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

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

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information