كلمة سر لفتح النموذج

اخى

ضع فى حدث عند الفتح للنموذج هذا الكود

Dim strInput As String

Dim strMsg As String

Beep

strMsg = "ادخل كلمة السر."

strInput = InputBox(Prompt:=strMsg, title:="Special Password")

If strInput = "123" Then 'password is correct

Exit Sub

Else 'password is incorrect

MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''Special Form''.", vbCritical, "Invalid Password"

DoCmd.Close

End If

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

اخي خالد

اعددت لك مثالاً يفي بالغرض ان شاء الله

لاحظ الكود بحدث عند الفتح للنموذج frmProtected والمعني بالحماية

حاول ان تفتحه بمفرده او من خلال النموذج form1 سيظهر لك مربع ادخال يطالبك بكلمة مرور وهي 123 اذا تم ادخال الرقم الصحيح سيتم فتح النموذج وفيما عدا ذلك لن يفتح النموذج وتظهر لك رسالة تفيد بأن كلمة المرور غير صحيحة ( يمكنك تغيير كلمة المرور عن طريق الكود ) بحدث عند الفتح للنموذج المعني بالحماية.

ارجو ان يكون هو المطلوب

معذرة اخي mrnooo2000 لم الاحظ ردك الا بعد ان ادرجت مشاركتي .. جعلك الله سباقاً الى الخير دائماً

وصدفة جميلة جداً ان نعين انا وانت نفس كلمة المرور ( سبحان الله القلوب عند بعضها زي ما يقولوا )

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

Protected Form.rar

بالطبع اخى العزيز ( القلوب عند بعضها )

صدفة ما أحلاها

لكم الف شكر وتقدير الاخ mrnooo2000 والاخ يوسف احمد وجعل الله عملكم في ميزان حسناتكم

لي سؤال هنا بعد اذنكم

لو حبيت ان كلمه السر اثناء الكتابة ما تظهر او تظهر بالنجوم كي لا احد قاعد جمبي لا يعرفها ؟؟؟

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

الطاير كتب:

لي سؤال هنا بعد اذنكم

لو حبيت ان كلمه السر اثناء الكتابة ما تظهر او تظهر بالنجوم كي لا احد قاعد جمبي لا يعرفها ؟؟؟

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

أشكر الأخوة المشاركين ويعطيكم ألف عافية على هذا المشاركة الجميلة ..

أخي الطاير هذه طريقة عمل كلمة السر وتظهر نجوم ..

تقبلوا جميعا تحياتي ..

مشكور اخى ابو عدنان

و لكن اعتقد ان الاخ يريد ذلك فى inbutbox

اخى

لاحظ المرفق

Protected Form.rar

لكم الشكر اخوتي ولكن لم افهم ماذا مقصود فارجو ان تشرح

اخ خالد

تم اضافة وحدة نمطية

و تعديل بسيط فى الكود

تستطيع ان تلاحظه بنفسك

بدل inputbox

نستخدم

inputboxdk

ألف شكر للذي أتحفنا بالرائعة