كيف استطيع ازالة الرسالة التي تظهر عندما اقوم بفتح قاعدة فيها بعض الماكرو (بستخدام الكود )
علما أنني اعرف ازالته عن طريق
ادوات - ماكرو - امان
واختار الوضع منخفض
لكن المشكلة تكمن عندما اريد أن اضع القاعدة في اجهزة اخرى افتراضية اعداد الماكرو فيها متوسط في الغالب
انا قرأت في موقع office.microsoft.com طريقة لأزالتها بالكود
وهذا هو الكود الذي وجدته
Const cDatabaseToOpen = "C:\<FileToOpen>.mdb"
On Error Resume Next
Dim AcApp
Set AcApp = CreateObject("Access.Application")
If AcApp.Version >= 11 Then
AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If
AcApp.Visible = True
AcApp.OpenCurrentDatabase cDatabaseToOpen
If AcApp.CurrentProject.FullName <> "" Then
AcApp.UserControl = True
Else
AcApp.Quit
MsgBox "Failed to open '" & cDatabaseToOpen & "'."
End Ifوهذ الرابط للموقع الذي حصلت على الكود فيه
http://office.microsoft.com/ar-sa/assistan...0379431025.aspx
ارجو مساعدتي ولكم خالص شكري
