Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Recommended Posts

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

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

7777.jpg.1b45cc14e4d1c6078583a55253d5cb48.jpg

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

  • Like 4
  • Thanks 6
Link to post
Share on other sites

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

 

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

 

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

 

جعفر

Link to post
Share on other sites

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

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

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

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

شكرا أخي kanory

Link to post
Share on other sites

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

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

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

 

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

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

Link to post
Share on other sites

990846863_.jpg.88571c651023c5bc99f25a4cc4a8738d.jpg

لم تفهم قصدي

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

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

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

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

واعطيني خبر

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

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

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

Link to post
Share on other sites

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

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

Link to post
Share on other sites

السلام عليكم

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

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

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

وتمت بنجاح

Soft.sample.thumb.png.f1cf3a3c586e86e3084b8ca3f55ddcb7.png

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...