حاولت إنشاء نموذج لإدخال البيانات يكون محمي بكلمة مرور للمستخدم أن يغيرها حسب رغبته ، وقد كانت نتيجة محاولتي هي كالتالي :
http://mypage.ayna.com/harith77/pass77.zip
مع ملاحظة أن النموذج main هو اللوحة الرئيسة
لكني أشعر أن هذا الأسلوب معقد ، وربما غير ناجح ، ولا شك أن هنالك أسلوب أبسط وأجدى
أرجو الإفادة
ملاحظة :
في حال لم يمكنك تحميل الملف بالنقر على الوصلة السابقة انقر علىالوصلة التالية :
http://mypage.ayna.com/harith77/
ثم اختر pass77.zip
لم تعمل الروابط .
هل ترغب في حفظ كلمة المرور في سجل وندوز أم في جدول وضح المطلوب .
اخي الحارث الي سويته شي جميل بس تذكر ان بامكان اي واحدان يعمل استيراد للجدول الي فيه كلمة السر ويعرفها .
الأخ أبو حمود : أنا قد حفظت كلمة المرور في جدول ، وأريدها أن تكون خاصة بنموذج واحد ، فهل هناك طريقة أخرى.
الأخ fahadam : هل هناك ما يمكن معه منع استيراد الجدول ؟ .
سؤال: ألا يمكن وضع كلمة المرور في كود بدلا من الجدول مع إمكانية تغييرها للمستخدم ؟ .
والتمسوا العذر لأخيكم فهو مبتدئ .
الي اعرفه عن طريق وضع صلاحيات للمستخدميناقتباسالاخ حارث
بس كيف والله ماأدري
Private Sub Form_Open(Cancel As Integer)
10 If التأكد_من_كلمة_المرور = False Then
If MsgBox("كلمة المرور التي أدخلتها غير صحيحة ." & vbCrLf _
& "هل ترغب في إعادة المحاولة ؟", vbCritical + vbMsgBoxRight _
+ vbMsgBoxRtlReading + vbOKCancel, "كلمة مرور غير صالحة") = vbCancel Then
Cancel = -1
Else
GoTo 10
End If
End If
End Sub
Private Function التأكد_من_كلمة_المرور() As Boolean
If InputBox("أدخل كلمة المرور :", "كلمة المرور مطلوبة") = _
GetSetting("اسم البرنامج", "اسم النموذج", "كلمة_السر", Password) Then
التأكد_من_كلمة_المرور = True
Else
التأكد_من_كلمة_المرور = False
End If
End Function
Private Sub حفظ_كلمة_المرور_Click()
Dim Password, Password2
10 Password = InputBox("أكتب كلمة المرور الجديدة", "تسجيل كلمة مرور جديدة")
If Password = "" Then Exit Sub
Password2 = InputBox("أعد كتابة كلمة المرور الجديدة", "التأكد من كلمة المرور", Password)
If Password = Password2 Then
Call SaveSetting("اسم البرنامج", "اسم النموذج", "كلمة_السر", Password)
Else
If MsgBox("كلمة المرور التي أعدت كتابتها غير متطابقة ." & vbCrLf _
& "هل ترغب في إعادة كتابتها مرة أخرى ؟", vbCritical + vbYesNo + vbMsgBoxRight _
+ vbMsgBoxRtlReading, "خطأ في إعادة كتابة الكلمة") = vbYes Then
GoTo 10
End If
End If
End Sub
ولكن لهذه الطريقة عيوب :
1- لا تمنع المستخدم من الاطلاع على تصميم النموذج وتغييره والاطلاع على مكان حفظ الكلمة في سجل الوندوز .
2- من يفهم في سجل الوندوز بإمكانه الاطلاع عليها بسهولة .
3- بإمكان المستخدم تغيير الكود للنموذج بحيث يمنع طلب الكلمة عند فتح النموذج .
ولك تحياتي
أخي الفاضل أبو حمود :
طبقت الطريقة التي ذكرتها وكانت ناجحة ، فجزاك الله كل خير .
لكن لدي سؤال ، واعذرني إن أكثرت عليك :
ما المقصود بالعبارة التالية :
"اسم البرنامج", "اسم النموذج", "كلمة_السر", Password
علما بأني قد طبقتها كما أوردتها تماما ، ثم استبدلتها بما يلي :
"aaaa", "aaa", "aa", Password
وكانت ناجحة في كل من الحالتين
ثم أين تحفظ كلمة المرور في سجل الويندوز ؟ فقد حاولت البحث عن أي ملفات بالأسماء الواردة فيما سبق ولم أجد شيئا .
أما بالنسبة للاطلاع على التصميم فسأحاول معالجته في قاعدة البيانات كلها عن طريق صلاحيات المستخدمين ، فهل هذه الطريقة كافية؟
أرجو الإفادة ، ولك جزيل الشكر .
أخوك الشاكر لك بذلك علمك الداعي لك / حارث
المقصود باسم البرنامج واسم النموذج وكلمة السر هي مفاتيح ومفاتيح فرعية توضع في سجل الوندوز وحسب علمي فهي تشبه المجلدات من حيث وجود مجلد داخل مجلد أما Password في القيمة .
ومكان حفظ الكلمة في التالي :
انقر أبدأ ثم تشغيل ثم اكتب Regedit سيشتغل برنامج محرر السجل انقر على
HKEY_CURRENT_USERSoftwareVB and VBA Program Settings
وستجد الاسم الذي سجلته في المفتاح "اسم النموذج"
انقر عليه سيظهر المفتاح الفرعي الذي سجلته في كلمة_السر انقر عليه فستظهر القيمة التي سجلتها في الجهة اليمنى .
لاتحاول تعديل شيء لا تعرفه في السجل حتى لاتتعطل بعض البرامج أو حتى قد يتعطل الوندوز نفسه.
أما أفضل طريقة لحفظ النموذج في رأيي فهي وضع كلمة سر للقاعدة ككل .
ولك تحياتي
للفائدة (f)
هذا الموضوع مغلق.