الغاء رسالة برمجيا

[elsedik]

كيف يتم الغاء الرسالة الموجودة فى الصورة برمجيا

مع كل نسخ الاوفيس

[بحار الاكسس]

 

File ------> Option  -------> trust Center----->trust center Setting

Never Show information about blocked content 

macro setting-----> enable All Macros 

[elsedik]

3 دقائق مضت, بحار الاكسس said:

 

File ------> Option  -------> trust Center----->trust center Setting

Never Show information about blocked content 

macro setting-----> enable All Macros 

الغاء الرسالة الموجودة فى الصورة باستخدام الاكواد

[بحار الاكسس]

Private Sub Form_Load()

If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" 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

End Sub

طبعا هذا الكود يوضع فى النموذج الافتتاحى للبرنامج

تم تعديل يناير 29, 2017 بواسطه بحار الاكسس

[elsedik]

بتظهر رسالة خطاء