[分享]不修改注册表,取消OFFICE2003的安全警告

tmtony · 发表于 2007-3-2 19:05:00

谢谢分享,我用的也是同样的方法,不过, 改为>=11.0 因为2007也是如此

If AccApp.Version >= 11 Then
AccApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
End If
AccApp.Visible = True
AccApp.DoCmd.RunCommand acCmdAppMaximize

因为设置的AutomationSecurity 并不会保存下来,所以不需要再恢复原值 (假如原值是设为高的话)

一般是先启用一个VB程序,打开mdb或ADP来做

不过，遇到一个问题，就是如果程序有一个弹出式的登陆窗体，则用VB启动ACCESS程序无法在
在AccApp.visible为False的情况下先最大化窗口 AccApp.DoCmd.RunCommand acCmdAppMaximize
必须要将 AccApp.visible=true才能最大化，不太完美

glw · 发表于 2007-3-2 19:34:00

look

WDLRCZT · 发表于 2007-3-2 22:25:00

支持

陈大林 · 发表于 2007-3-2 22:37:00

ding

陈大林 · 发表于 2007-3-2 22:38:00

ding

aydl1014 · 发表于 2007-3-2 22:41:00

好东东，一定要see see

小何 · 发表于 2007-3-2 23:45:00

高手就是高手,都能想得到.

rjacky · 发表于 2007-3-2 23:57:00

andymark版主又发布好东西了，支持！

陈大林 · 发表于 2007-3-3 02:44:00

thank

陈大林 · 发表于 2007-3-3 03:03:00

回复了也看不到东西啊！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] [分享]不修改注册表,取消OFFICE2003的安全警告

[求助]

[推荐]aa

群介绍
主题无相 (随机显示版	同地区群块其他地区)