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

[ابوأسد]

اعزائي

ارجو منكم تزويدي بكود VBA لانشاء او تغيير كلمة مرور قاعدة بيانات اكسس خارجية .. مشكورين

[ابوأسد]

يا مسهل يا رب

[ابوأسد]

لا زال عندي امل في الرد

[ابوخليل]

تفضل :

كود لكلمة مرور  قاعدة بيانات بعيدة

يمكنك من خلاله

1-الغاء كلمة المرور 

2- تعديل كلمة المرور

3- انشاء كلمة مرور جديدة

Private Sub ChangeAccessPassword(OldPass As String, NewPass As String)
    Dim Db As Database
    ' opens the databse, using the old password.
    ' replace "C:\MyDir\Mydb1.mdb" with your database file name 
    Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass)
    ' setthe new password
    Db.NewPassword OldPass, NewPass
    ' close the database 
    Db.Close
End Sub


Private Sub Command1_Click()
' replace "oldPassword" with the current database password, and
' "newPassword" with the new password you want the database will have.
    Call ChangeAccessPassword("oldPassword", "newPassword")
End Sub

 

[محمد سلامة]

8 ساعات مضت, ابوخليل said:

تفضل :

كود لكلمة مرور  قاعدة بيانات بعيدة

يمكنك من خلاله

1-الغاء كلمة المرور 

2- تعديل كلمة المرور

3- انشاء كلمة مرور جديدة

Private Sub ChangeAccessPassword(OldPass As String, NewPass As String)
    Dim Db As Database
    ' opens the databse, using the old password.
    ' replace "C:\MyDir\Mydb1.mdb" with your database file name 
    Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass)
    ' setthe new password
    Db.NewPassword OldPass, NewPass
    ' close the database 
    Db.Close
End Sub


Private Sub Command1_Click()
' replace "oldPassword" with the current database password, and
' "newPassword" with the new password you want the database will have.
    Call ChangeAccessPassword("oldPassword", "newPassword")
End Sub

 

بارك الله فيك ااستاذنا ابوخليل

بس ممكن علي استحياء اطلب توضيح او مرفق لمعرفة طريقة التطبيق لان تلك الطريقة ستفتح افكار جديدة 

[ابوأسد]

اعجز عن شكرك ورد جمايلك

ساطبق الكود واخبرك بالنتيجة 

[ابوخليل]

اخوي محمد  الاسطر عليها شرح وافي  ولكن باللغة الانجليزية

ويبقى طرق الاستفادة  في الالغاء او التعديل او الجديد

طبعا الجديد  ستكون القاعدة بدون  كلمة مرور 

اما الالغاء والتعديل فيفترض معرفة كلمة المرور القديمة

وكلها تتم من خلال السطر

Call ChangeAccessPassword("oldPassword", "newPassword")  ' لتغيير الباسوورد

Call ChangeAccessPassword("oldPassword", "")  ' لإلغاء الباسوورد

Call ChangeAccessPassword("", "newPassword")  ' لكتابة باسوورد جديد

oldPassword = يكتب مكانه الباسوور القديم

newPassword = يكتب مكانه الباسوور الجديد

اما  علامتي التنصيص  ""  فهي تعني لاشي  او لايوجد

[حربي العنزي]

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

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

لكن الموضوع اعجبني كثيرا واحببت ان اطرح سؤالا في مشاركة اخي واستاذي الفاضل ابو اسد وهو :

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

واريد افتحها ماهو الكود البرمجي لفتحها مع وافر التحايا

 

تم تعديل ديسمبر 24, 2016 بواسطه حربي العنزي

[ابوأسد]

تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل

 

تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل

 

اليكم المرفق 

انشاء-تعديل-حذف كلمة مرور قاعدة بيانات بعيدة.zip

[محمد سلامة]

19 ساعات مضت, ابوخليل said:

اخوي محمد  الاسطر عليها شرح وافي  ولكن باللغة الانجليزية

ويبقى طرق الاستفادة  في الالغاء او التعديل او الجديد

طبعا الجديد  ستكون القاعدة بدون  كلمة مرور 

اما الالغاء والتعديل فيفترض معرفة كلمة المرور القديمة

وكلها تتم من خلال السطر

Call ChangeAccessPassword("oldPassword", "newPassword")  ' لتغيير الباسوورد

Call ChangeAccessPassword("oldPassword", "")  ' لإلغاء الباسوورد

Call ChangeAccessPassword("", "newPassword")  ' لكتابة باسوورد جديد

oldPassword = يكتب مكانه الباسوور القديم

newPassword = يكتب مكانه الباسوور الجديد

اما  علامتي التنصيص  ""  فهي تعني لاشي  او لايوجد

شكرا استاذنا ابوخليل.. الان اتضح الامر 

شكرا جزيلا