[求助]如何通过修改注册表或运行VBA代码来勾选可靠发行商中的项目

jzl30530 · 发表于 2006-5-10 09:54

如何通过修改注册表或运行VBA代码来勾选可靠发行商中的项目

[此贴子已经被作者于2006-5-10 9:54:58编辑过]

nawong · 发表于 2006-5-10 14:34

8QMSKtH8.rar (7.5 KB, 下载次数: 104)

jzl30530 · 发表于 2006-5-10 17:00

多谢nawong兄指教，但还有个问题就是加了Application.ScreenUpdating = False
VBA代码运行时屏幕还是在闪动。

Application.ScreenUpdating = False
Application.SendKeys "%tms%t%v{+}~"
Application.ScreenUpdating = True

可以修改注册表实现吗，如下面的可以修改“信任所有加载项和模板”

[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security]
"DontTrustInstalledFiles"=dword:00000000

[此贴子已经被作者于2006-5-10 17:01:45编辑过]

winland · 发表于 2006-5-10 20:59

你把DontTrustInstalledFiles的值改成1不就可以了吗。

jzl30530 · 发表于 2006-5-11 12:58

以下是引用[I]winland[/I]在2006-5-10 20:59:23的发言：[BR]
你把DontTrustInstalledFiles的值改成1不就可以了吗。

不好意，那个当然知道，我是想通过修改注册表或运行VBA代码实现自动钩选其中的“信任VB项”。

huyongapple · 发表于 2006-5-11 15:43

楼主，我注册表中DontTrustInstalledFiles项已是1了，可EXCEL中“信任VB...”却仍然没打勾，修改注册表管用吗？

winland · 发表于 2006-5-11 20:35

不好意思，我犯了想当然的毛病。

DontTrustInstalledFiles值为0时是信任所有的。

DontTrustInstalledFiles值为1和8时是不信任。

如果不想用API的话，可用下面的代码改注册表。

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\DontTrustInstalledFiles", 0 ,"REG_DWORD"

nawong · 发表于 2006-5-12 10:02

以下是引用[I]winland[/I]在2006-5-11 20:35:44的发言：[BR]
不好意思，我犯了想当然的毛病。
DontTrustInstalledFiles值为0时是信任所有的。
DontTrustInstalledFiles值为1和8时是不信任。
如果不想用API的话，可用下面的代码改注册表。
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\DontTrustInstalledFiles", 0 ,"REG_DWORD"

您好！用以下代碼尚未得到，0值勾选還不對 Sub RegKeyWrite() Set WshShell = CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\Office\11.0\Excel\Security\DontTrustInstalledFiles", 0, "REG_DWORD" End Sub

蜜雪儿 · 发表于 2006-5-12 10:18

94的，运行代码后，关闭Excel重启，还是没有打勾勾。

huyongapple · 发表于 2006-5-12 21:28

To winland：

能否将有关WScript的帮助文件发个帖子？我找了好久，可都是零零碎碎的，用时不好查找，有些还查不到。先谢了。

		自动登录	找回密码
密码			免费注册