إضافة كلمة مرور لحماية ملف أكسس و تعديلها و حذفها برمجيا

[صالح حمادي]

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

أقدم لكم اليوم مرفقا يقوم بإضافة كلمة مرور جديد لملف الأكسس أو تعديل كلمة مرور قديمة أو حذفها نهائيا.

1- لإضاف كلمة مرور جديدة يجب ترك مربع كلمة السر القديمة فارغا و كتابة الكلمة الجديدة فقط ثم الضغط على زر الأمر

2- لتعديل كلمة المرور نكتب الكلمة القديمة و نكتب الكلمة الجديدة ثم الضغط على زر الأمر

1- لحذف كلمة المرور نكتب الكلمة القديمة ونترك مربع كلمة السر الجديدة فارغا ثم الضغط على زر الأمر

و قد استخدمة هذه الوحدة النمطية:

Public Function ChangePassword(path_file As String, Old_Password As String, New_Passwod As String)
On Error GoTo err
Dim odb As DAO.Database
Set odb = DBEngine.OpenDatabase(path_file, True, False, ";pwd=" & Old_Password)
odb.NewPassword Old_Password, New_Passwod
MsgBox "لقد تم تغيير كلمة المرور بنجاح"
fin:
Set odb = Nothing

Exit Function
 
err:
Select Case err.Number
    Case 3031
        MsgBox "كلمة المرور غير صحيحة", vbCritical, "Sécurité"
    Case Else
        MsgBox err.Description, vbCritical, "Erreur No." & err.Number

End Select
Resume fin
End Function

و قمت بإستدعائها من خلال هذا الكود:

Call ChangePassword(Me.txtpath1, Nz(Me.OldMot, ""), Nz(Me.NewMot, ""))

 

 

تغيير كلمة السر برمجيا.rar

[Barna]

بارك الله في اخي @صالح حمادي

كتب الله اجرك

[صالح حمادي]

و فيك بارك الله أخي محمد

هل جربت المرفق

[kanory]

⚘ملفك جميل يحتاج اليه 

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

[Barna]

لا .. لاني على الموبايل ... قلت ارد وبعدين نجرب 

[jjafferr]

وعليكم السلام 🙂

 

رائع اخي صالح 🙂

 

ولكن ، اعط البرنامج حقه ، فلقد غيّر حتى الامتداد accde ، والذي يجب ان تضيفه الى Filters.Add 🙂

 

جعفر

[صالح حمادي]

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

أهلين أخي جعفر و الله إشتقنالك طال غيابك هذا المرة أكثر من اللازم

نعم . لقد عدلت على المرفقة و أصبح يستقبل جميع الإمتدادات

شكرا على الملاحظة

شكرا أخي kanory

[ابو ياسين المشولي]

بعد التجربة

[ابو ياسين المشولي]

عند كتابه الرقم السري القديم يتم التغير

 

[صالح حمادي]

تأكد من الملف به كلمة مرور يجب عليك إضافتها

[ابو ياسين المشولي]

ايوه اخي صالح بس كلمه المرور كانت مكونه من حروف وارقام

لازم تعملها على الحروف والارقام

[AlwaZeeR]

جميل جدا اخي صالح

جعله الله في ميزان حسناتك

 

[صالح حمادي]

البرنامج يشتغل مع الأرقام و الحروف

شكرا جزيلا صديقي العزيز

[ابو ياسين المشولي]

لا اخي ابو صالح انا جربته في عندي قاعده بينات فيها حروف كبير وصغيرة وارقام ولم يعمل

وجربته بالارقام فعمل بنجاح لم اجربه ارقام صغيره

بجربه وبعطيك النتيجه

 

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

واذا كان حروف فقط يعمل وكذلك اذا كان ارقام فقط يعمل

[صالح حمادي]

البرنامج يعمل بشكل جيد انظر للصورة

[jjafferr]

ويعمل بحروف عربية كذلك 🙂

[ابو ياسين المشولي]

لم تفهم قصدي

1- لإضاف كلمة مرور جديدة يجب ترك مربع كلمة السر القديمة فارغا و كتابة الكلمة الجديدة فقط ثم الضغط على زر الأمر

2- لتعديل كلمة المرور نكتب الكلمة القديمة و نكتب الكلمة الجديدة ثم الضغط على زر الأمر

1- لحذف كلمة المرور نكتب الكلمة القديمة ونترك مربع كلمة السر الجديدة فارغا ثم الضغط على زر الأمر

اترك كلمه السر القديمه واكتب كلمه سر جديد لا يعمل اذا كان فيها حروف

واعطيني خبر

بعتذر على سوى الفهم انا كنت فاقر انه اذا يوجد رقم سري تخلي كلمه السر القديمه فاضي

الان استوعبت انه اذا كانت بدون كلمه سر

اعتذر عن سو الفهم

[صالح حمادي]

نعم يا غالي

تخطي كلمة المرور يعني إنتهاك للحقوق

[Ali Mohamed Ali]

بارك الله فيك وزادك الله من فضله

[صالح حمادي]

و فيك بارك الله أخي علي محمد علي

[sandanet]

جميل جدا بارك الله فيك استاذ صالح عمل راقي

[صالح حمادي]

شكرا أخي

[qathi]

أهلاً بك أستاذي @صالح حمادي .. الله يعلم أن لي الفترة الماضية أفكر أن أجد مثال مثل هذا .. والحمد لله أني وجدةُ منك .. 

هكذا تعودنا منك أستاذنا .. أبداع وتألق دائماً .. بارك الله فيك .. ورزقك الله الذرية الصالحة والخير كلة في الدنياء والاخرة

[صالح حمادي]

4 ساعات مضت, qathi said:

بارك الله فيك .. ورزقك الله الذرية الصالحة والخير كلة في الدنياء والاخرة

و لك بالمثل إن شاء الله أخي

[محمد سلامة]

السلام عليكم

ممتاز جدا استاذ @صالح حمادي 

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

استخدمت مزيج فى كلمة المرور حروف عربى وحروف انجليزى كابتل وسمول وارقام

وتمت بنجاح