|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
各位老师:
如何用VBA勾选信任对于“Visual Basic项目”的访问呀?是下面这两句吧?
Application.SendKeys "%(tmstv){ENTER}" '在 Excel 窗口操作
Application.SendKeys "%(qtmstv){ENTER}" '在 VBE 窗口操作
把它放在Workbook_Open事件中为什么不起作用呢?
Private Sub Workbook_Open()
'如果 信任对于“VISUal basic项目”的访问 已经打了勾,就不执行,否则就执行
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
If WSH.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\AccessVBOM") = 0 Then Application.SendKeys "%(QTMSTV){enter}"
Set WSH = Nothing
End Sub
[ 本帖最后由 ugyun 于 2010-10-3 13:28 编辑 ] |
|