Excel2010的安全设置比起Excel2007有什么区别？

Tianorder

在装有Excel2007的电脑中，我用VBS可以通过VBA来调用鼠标，
但Excel2010就不行了。
以下是截图和代码，在装有Excel2007或Excel2003的机器上保存为.vbs即可以运行。

1. Option Explicit
   
2. 
   
3. Dim WshShell
   
4. Dim oExcel, oBook, oModule
   
5. Dim strRegKey, strCode, x, y
   
6. Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象
   
7. 
   
8. set WshShell = CreateObject("wscript.Shell")
   
9. 
   
10. strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
    
11. strRegKey = Replace(strRegKey, "[        DISCUZ_CODE_0        ]quot;, oExcel.Version)
    
12. 
    
13. WshShell.RegWrite strRegKey, 1, "REG_DWORD"
    
14. 
    
15. Set oBook = oExcel.Workbooks.Add '添加工作簿
    
16. Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块
    
17. strCode = _
    
18. "'Author: Demon" & vbCrLf & _
    
19. "'Website: " & vbCrLf & _
    
20. "'Date: 2011/5/10" & vbCrLf & _
    
21. "Private Type POINTAPI : X As Long : Y As Long : End Type" & vbCrLf & _
    
22. "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf & _
    
23. "Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long" & vbCrLf & _
    
24. "Private Declare Sub mouse_event Lib ""user32"" Alias ""mouse_event"" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)" & vbCrLf & _
    
25. "Public Function GetXCursorPos() As Long" & vbCrLf & _
    
26. "Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X" & vbCrLf & _
    
27. "End Function" & vbCrLf & _
    
28. "Public Function GetYCursorPos() As Long" & vbCrLf & _
    
29. "Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y" & vbCrLf & _
    
30. "End Function"
    
31. oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码
    
32. 
    
33. oExcel.Run "SetCursorPos", 30, 30 '设置鼠标 X Y 坐标
    
34. Const MOUSEEVENTF_MOVE = &H1
    
35. Const MOUSEEVENTF_LEFTDOWN = &H2
    
36. Const MOUSEEVENTF_LEFTUP = &H4
    
37. Const MOUSEEVENTF_RIGHTDOWN = &H8
    
38. Const MOUSEEVENTF_RIGHTUP = &H10
    
39. Const MOUSEEVENTF_MIDDLEDOWN = &H20
    
40. Const MOUSEEVENTF_MIDDLEUP = &H40
    
41. Const MOUSEEVENTF_ABSOLUTE = &H8000
    
42. '模拟鼠标左键单击
    
43. oExcel.Run "mouse_event", MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
44. '模拟鼠标右键单击
    
45. oExcel.Run "mouse_event", MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
    
46. oExcel.Run "SetCursorPos", 140, 340 '设置鼠标 X Y 坐标
    
47. '关闭 Excel
    
48. oExcel.DisplayAlerts = False
    
49. oBook.Close
    
50. oExcel.Quit

复制代码

然则，即使我在宏设置中启用所有宏；在自定义功能区在开发工具前打对号，
在Excel2010或Excel2013中依然会出现这样的错误：

Tianorder

我想，并不是Excel的问题，因为Set oBook = oExcel.Workbooks.Open("C:\Users\Administrator\Desktop\Book1.xls")这样的代码均为报错。
报错的是找不到在VBA中写的Function。

也许是VBA的语法变了。

Tianorder

Tianorder 发表于 2015-8-20 16:39
我想，并不是Excel的问题，因为Set oBook = oExcel.Workbooks.Open("C:%users\Administrator\Desktop\Book1 ...

我测试了一下，以下代码在Excel2010中并未报错。
这说明，错的是SetCursorPos等函数的定义

1. Option Explicit
   
2. 
   
3. Dim WshShell
   
4. Dim oExcel, oBook, oModule
   
5. Dim strRegKey, strCode, x, y
   
6. Set oExcel = CreateObject("Excel.Application") '创建 Excel 对象
   
7. 
   
8. set WshShell = CreateObject("wscript.Shell")
   
9. 
   
10. strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
    
11. strRegKey = Replace(strRegKey, "$", oExcel.Version)
    
12. 
    
13. WshShell.RegWrite strRegKey, 1, "REG_DWORD"
    
14. 
    
15. Set oBook = oExcel.Workbooks.Add '添加工作簿
    
16. Set oModule = obook.VBProject.VBComponents.Add(1) '添加模块
    
17. strCode = _
    
18. "Sub Tian()" & vbCrLf & _
    
19. "MsgBox ""tian"",64,""D""" & vbCrLf & _
    
20. "End Sub"
    
21. oModule.CodeModule.AddFromString strCode '在模块中添加 VBA 代码
    
22. oExcel.Run "tian"
    
23. '关闭 Excel
    
24. oExcel.DisplayAlerts = False
    
25. oBook.Close
    
26. oExcel.Quit

复制代码

masslz

2010中需要添加PtrSafe
这个麻烦网上有解决办法。
问题是，我发现不能模拟鼠标点击！
求助大神！