如何用VBA获取当前文档的宏的安全性设置级别

Question

rt,谢谢

Answer 1

以2003为例:
?application.Choose(createobject("WScript.Shell").regread("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\Level"),"低","中","高")

Answer 2

debug.print application.Choose(createobject("WScript.Shell").regread("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\Level"),"低","中","高")注意这个设置是对Excel应用程序的设置,没有当前文档的设置一说.

Answer 3

刚才好象绕了个弯.:-( Exce自带了AutomationSecurity属性
debug.pring Application.AutomationSecurity