سلام
در این مورد بر خلاف سایر گزینه های معمول در اکسس و آفیس، باید در رجیستری ویندوز تغییراتی ایجاد بشه که میتونید از کد زیر استفاده کنید. عدد 12 مربوط به آفیس 2007 هست و برای آفیس 2010 باید عدد 14 رو جایگزین کنید (آفیس 2013 رو نمیدونم احتمالا 16). هر چند که میتونید هر دو خط رو اضافه کنید که مطمئن بشید. مثال :
Dim ChangeReg As ObjectSet
ChangeReg = CreateObject("WScript.Shell")
ChangeReg.Regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\12.0\ Access\Security\VBAWarnings", "1", "REG_DWORD"
ChangeReg.Regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\ Access\Security\VBAWarnings", "1", "REG_DWORD"
اینجوری مطمئن میشید که اگر آفیس کاربر 2007 یا 2010 یا ... بود تغییرات اعمال میشه. من هر دو خط رو قرار دادم و اروری نداد ولی بازم شما با چند ورژن آفیس و چند ویندوز مختلف تست کن تا مطمئن بشی.
برای مشاهده تغییرات هم که میدونید :files -> options -> trust center -> trust center settings... -> macro settings
پاسخ با نقل قول
نوشته شده توسط e601
