تخفيض الأمان وفرض اصدارمعين لتشغيل التطبيق في اكسس

[أبو نادر]

السلام عليكم

احبابي اطلعت على هالموضوع حول تخفيض أمان اكسس وعدلت شي بسيط في كود استاذنا محمد صالح الله يعطيه العافيه

من ضمن عناصر المكتبه عندي  word 15  واذا تم تشغيل التطبيق باصدار اقل من  2013  تجي المشاكل وبعض الاحيان ما يشتغل وارجع انزل نسخة جديده من الواجهه

عملت هذا الكود ووضعته في حدث عند التحميل للافتتاحية ... واي اصدار اقل من 2013 ما بيشغله

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

 

وبالتوفيق

 

Dim r As Integer

r = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"))

If r = 0 Then
CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD"
End If

If r > 15 Then

MsgBox "عفوا.. البرنامج متوافق مع نسخة اوفيس 2013 او الحدث", vbMsgBoxRight, " "
DoCmd.Quit

Else

DoCmd.Maximize
DoCmd.OpenForm "frm-UserLogon", acNormal, , , , acDialog

End If

 

 

 

 

تم تعديل يناير 4, 2017 بواسطه أبو نادر

[ali2017]

بارك الله  فيك

 

ممكن تعديل الكود    كي يعمل فقط على اوفيس 2007 ؟

 

[أبو نادر]

14 ساعات مضت, ali2017 said:

بارك الله  فيك

 

ممكن تعديل الكود    كي يعمل فقط على اوفيس 2007 ؟

 

 

جرب وافتحه باصدار اعلا

Dim r As Integer

r = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version > 12, "Level", "VBAWarnings"))

If r = 0 Then
CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version > 12, "Level", "VBAWarnings"), "1", "REG_DWORD"
End If

If r > 12 Then

MsgBox "عفوا.. البرنامج متوافق مع نسخة اوفيس 2007", vbMsgBoxRight, " "
DoCmd.Quit

Else

DoCmd.Maximize
DoCmd.OpenForm "frm-UserLogon", acNormal, , , , acDialog

End If