[أبو عبدالله الحلواني]

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

كود :

   Public Sub CretAndOpen(ByVal Strpath As String)
       Dim AccessApp As Object
       AccessApp = CreateObject("Access.Application")
   
       With AccessApp
           .AutomationSecurity = 1
           .RunCommand acCmdAppMaximize
           .DoCmd.RunCommand acCmdAppMaximize
                   .OpenCurrentDatabase(Strpath)
           .docmd.runcommand(10)
       End With
       Application.Exit()
   End Sub

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

---

قد وجدت هذا الموضوع ولكن لم أستطع فهم الكود بشكل صحيح وهذا هو رابط الموضوع
https://www.vbforums.com/showthread.php?...ase-method