اذهب الي المحتوي
أوفيسنا
صالح حمادي

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

 

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

 

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

 

جعفر

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

شكرا أخي kanory

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

 

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

 

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

990846863_.jpg.88571c651023c5bc99f25a4cc4a8738d.jpg

لم تفهم قصدي

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

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

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

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

واعطيني خبر

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

نعم يا غالي

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

  • Like 1
  • Thanks 2

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

شارك هذه المشاركه


رابط المشاركه
شارك
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 اعضاء متواجدين الان

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

×
×
  • اضف...