Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2288|回复: 7

[已解决]对VBA访问不可修改了。

[复制链接]
发表于 2013-7-5 12:11 | 显示全部楼层 |阅读模式
求助:如图,对VBA访问不可修改了。怎么设置?
最佳答案
2013-7-5 14:40
  1. Sub VBA工程修复()
  2. On Error Resume Next
  3. With CreateObject("WSCRIPT.SHELL")
  4.     .REGDELETE "HKLM\Software\Microsoft\Office" & Application.Version & "\Excel\Security"
  5.     .REGWRITE "HKCU\Software\Microsoft\Office" & Application.Version & "\Excel\Security\AccessVBOM", 0, "REG_DWORD"
  6.     .REGWRITE "HKCU\Software\Microsoft\Office" & Application.Version & "\Excel\Security\Level", 3, "REG_DWORD"
  7. End With
  8. End Sub
复制代码
QQ截图20130705121005.jpg
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2013-7-5 12:28 | 显示全部楼层
回复

使用道具 举报

发表于 2013-7-5 14:28 | 显示全部楼层
这个是注册表锁住了,得修改注册表的。
回复

使用道具 举报

发表于 2013-7-5 14:39 | 显示全部楼层
回复

使用道具 举报

发表于 2013-7-5 14:40 | 显示全部楼层    本楼为最佳答案   
  1. Sub VBA工程修复()
  2. On Error Resume Next
  3. With CreateObject("WSCRIPT.SHELL")
  4.     .REGDELETE "HKLM\Software\Microsoft\Office" & Application.Version & "\Excel\Security"
  5.     .REGWRITE "HKCU\Software\Microsoft\Office" & Application.Version & "\Excel\Security\AccessVBOM", 0, "REG_DWORD"
  6.     .REGWRITE "HKCU\Software\Microsoft\Office" & Application.Version & "\Excel\Security\Level", 3, "REG_DWORD"
  7. End With
  8. End Sub
复制代码
回复

使用道具 举报

发表于 2013-7-5 14:44 | 显示全部楼层
经过测试,代码有效。
回复

使用道具 举报

 楼主| 发表于 2013-7-6 01:21 | 显示全部楼层
本帖最后由 1091126096 于 2013-7-6 01:29 编辑
hwc2ycy 发表于 2013-7-5 14:44
经过测试,代码有效。

     你说得没错,我是在杀毒后出现这个问题的。肯定是杀毒软件锁定了注册表。但是用VBA代码可以开启“信任对VBA工程对象模型的访问”,这既方便,也很可怕,这不是说明宏病毒可以轻易修改注册表吗? 运行这段代码时,杀毒软件难道会不闻不问吗?有时间我会试试看。
回复

使用道具 举报

发表于 2013-7-6 08:00 | 显示全部楼层
1091126096 发表于 2013-7-6 01:21
你说得没错,我是在杀毒后出现这个问题的。肯定是杀毒软件锁定了注册表。但是用VBA代码可以开启“信 ...

对,VBA可以自行打开访问。

你可以设置注册表这两个位置的权限嘛。

只让读取。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:40 , Processed in 1.391596 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表