هل بالإمكان وضع رقم سري لحقول معينة ؟؟؟

نعم أخى

حدد العناصر المطلوبة و اعمل اخفاء لهم جميعا

اضف زر أمر

و ضع هذا الكود به

لاحظ ان كلمة السر هنا هى 123 غيرها كما تريد

Dim cntl As Control, result As Integer
If InputBox("أدخل كلمة السر", "بيانات سرية") = 123 Then
For Each cntl In Me.Controls
If TypeOf cntl Is TextBox Or TypeOf cntl Is Label Then
cntl.Visible = True
End If
Next
Else
MsgBox "كلمة السر غير صحيحة"

End If

Abo_Yossof كتب:

نعم أخى

حدد العناصر المطلوبة و اعمل اخفاء لهم جميعا

اضف زر أمر

و ضع هذا الكود به

لاحظ ان كلمة السر هنا هى 123 غيرها كما تريد

Dim cntl As Control, result As Integer
If InputBox("أدخل كلمة السر", "بيانات سرية") = 123 Then
For Each cntl In Me.Controls
If TypeOf cntl Is TextBox Or TypeOf cntl Is Label Then
cntl.Visible = True
End If
Next
Else
MsgBox "كلمة السر غير صحيحة"

End If

سلمت ياأبا يوسف على ردك

هذا ماظهر لي :

السلام عليكم

بعد اذن استاذنا ابو يوسف

عندك نقص في الكود

ضع

End if

ماقبل

End Sub

انا جربت الكود والامور تمام

اجعل خاصية الحقل او الحقول التي تريد عدم اظهارها من خصائص النموذج غير مرئي

واضغط على زر الامر وادخل الرقم السري

وتظهر الحقول مرة ثانية

شكرا لك أخي سلامنا لكم . الخطأ ليس خطأ أبو يوسف الخطأ خطأي أنا الذي نسخت الكود ناقص

شكرا لكم وبارك الله في علمكما

لكن لدي أكثر من 60 شخص . كيف أضع لكل واحد رقم سري ؟

السلام عليكم

مازلت أنتظر ردك يابو يوسف . هل بالإمكان تعديل الكود ليصبح قابل لإضافة أرقام سرية ؟؟؟؟

برجاء ارفاق الملف بصيغة 2003

السلام عليكم

تفضل اخي الحجازي طارق

الملف بصيغة 2003

PassFields2003.rar