السلام عليكم
قمت بوضع كود للبرنامج ولكن يستطيع المستخدم تغيير كلمة السر اريد تعديل على الكود بحيث تكون هناك كلمة اخرى خاصة بي
استطيع من خلالها الدخول الى البرنامج حتى ولو قام المستخدم بتغير الكلمة الخاصة به
الكود
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "كلمة المرور مطلوبة"
str_Prompt = "ادخل كلمة المرور"
If InputBox(str_Prompt, str_Title) = DLookup("[password]", "pass", "[password]") Then
' اكتب هنا الإجراءات إذا كانت الكلمة صحيحة
Else
' اكتب هنا الإجراءات إذا كانت الكلمة غير صحيحة
End If
حيث pass هو اسم الجدول
password اسم الحقل

