اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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
رابط هذا التعليق
شارك

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

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

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

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

شكرا أخي kanory

رابط هذا التعليق
شارك

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

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

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

 

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

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

رابط هذا التعليق
شارك

990846863_.jpg.88571c651023c5bc99f25a4cc4a8738d.jpg

لم تفهم قصدي

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

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

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

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

واعطيني خبر

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

وتمت بنجاح

Soft.sample.thumb.png.f1cf3a3c586e86e3084b8ca3f55ddcb7.png

رابط هذا التعليق
شارك

Join the conversation

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

زائر
اضف رد علي هذا الموضوع....

×   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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information