[求助]如何用vba代码直接勾选宏安全里信任对vb项目的访问？

unlover

如题

我是用delphi的oleContainer内嵌的WORD（我想excel应该也一样），我在delphi里直接往WORD文档里添加一个按钮并为按钮添加vba代码，这个就需要勾选宏安全里的信任对vb项目的访问，但我不想让用户手动勾选这个，而是想用vba或delphi来想保存用户原先的设置，然后勾选这个，在程序退出的时候恢复用户原先的设置，可是我在WORD里想录制勾选这个的宏，却发现根本就录制不到……（我在delphi里对WORD的控制基本都靠录制的宏代码……，录制不到宏我都不知道何处下手……），请问vba里如何来处理这个？

还有delphi往WORD文档里添加的vba代码只能给在WORD里起作用，能不能传值回我的程序？

[此贴子已经被作者于2007-1-9 11:43:13编辑过]

qee用

VBProject：代码操作代码之常用语句  F5/6

unlover

我对vba不太熟悉，请问什么是F5/6？具体vba代码是什么？

northwolves

操作注册表，VBA代码：

Sub macro1()'全选
Dim wsh As Object, v As String
v = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\"
Set wsh = WScript.CreateObject("Wscript.Shell")
wsh.RegWrite v & "Level", 2, "REG_DWORD"
wsh.RegWrite v & "DontTrustInstalledFiles", 0, "REG_DWORD"
wsh.RegWrite v & "AccessVBOM", 1, "REG_DWORD"
Set wsh = Nothing
End Sub

Sub macro2()'不选
Dim wsh As Object, v As String
v = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Excel\Security\"
Set wsh = WScript.CreateObject("Wscript.Shell")
wsh.RegWrite v & "Level", 2, "REG_DWORD"
wsh.RegWrite v & "DontTrustInstalledFiles", 1, "REG_DWORD"
wsh.RegWrite v & "AccessVBOM", 0, "REG_DWORD"
Set wsh = Nothing
End Sub

Long_III

两位版主都是强人，佩服！

unlover

对注册表的操作是不是要关闭WORD再重启有效，还是直接有效？

northwolves

应该是直接有效的，你试试

unlover

……，改注册表我不如直接在delphi里做……，谢谢，我过一会去试一试

hhzjxss

不明白，谢谢了！

magpie001

我的方法是用vb先改注册表然后运行宏。
Private Sub Command1_Click()
'修改注册表，使宏安全中“信任对于‘visual basic项目’的访问”打钩
Set d = CreateObject("Wscript.Shell")
d.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM", "1", "REG_DWORD"
'将宏代码以string的形式保存在ss变量里
Dim ss As String
ss = "Sub ABC() " & vbCrLf & _
"msgbox " & Chr(34) & "通过vb创建的宏" & Chr(34) & vbCrLf & _
"End Sub"
'创建一个excel
Set a = CreateObject("excel.application")
Set b = a.Workbooks.Add
a.Visible = True
'创建模块
Dim NewxlsModule As Object
Set NewxlsModule = b.VBProject.VBComponents.Add(1)
' 添加宏
NewxlsModule.CodeModule.AddFromString ss
'运行宏
a.Application.Run "ABC"
End Sub