امنیت ماکروها

[shaghaghi]

سلام
این مشکل را در اکسس 2003 با این روش حل کرده ام، فکر کنم برای 2007 هم مفید باشد. هنوز تست نکردم:
یک فرم vb6 را بعنوان صفحه ی معرفی برنامه یا همان Splash با تصویر دلخواه برای برنامه ام ایجاد می کنم ،طوریکه چند ثانیه پس از اجرا این کد را با کمک یک تایمر RUN کند:

Private Sub Timer2_Timer()

   Dim appAccess As Object

   Set appAccess = CreateObject("Access.Application")

   appAccess.AutomationSecurity = 1 ' msoAutomationSecurityLow

   appAccess.OpenCurrentDatabase "C:\db1.mdb"

   Unload Me

End Sub