office 64位 代码求高手老师指点

tclnxc

各位高手:之前在网上搜到的VBA代码office 32位版本可以正常运行，但安装了64位版本后，出现代码不兼容，在网上找了很多帖子，也修改了诸如加ptrsafe,将long改为longPtr等方式，修改后的代码可以运行，但运行后有密码的VBe无法打开了，只要双击VBE输密码就会自动关闭文件，恳请路过的大师指点一下，不胜感激！工作薄密码1234

tclnxc

MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6  运行这句代码后加密了的vbaproject就出问题打不开了，请各路

1. Public Function Hook() As Boolean
   
2.     Dim TmpBytes(0 To 5) As Byte
   
3.     Dim p As LongLong
   
4.     Dim OriginProtect As LongLong
   
5.     Hook = False
   
6.     pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
7.     If VirtualProtect(ByVal pFunc, 6, &H40, OriginProtect) <> 0 Then
   
8.         MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6
   
9.         If TmpBytes(0) <> &H68 Then
   
10.             MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6
    
11.             p = GetPtr(AddressOf MyDialogBoxParam)
    
12.             HookBytes(0) = &H68
    
13.             MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4
    
14.             HookBytes(5) = &HC3
    
15.             MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6
    
16.             Flag = True
    
17.             Hook = True
    
18.         End If
    
19.     End If
    
20. End Function

复制代码

大师指点。

tclnxc

贴子被屏蔽了吗

opiona

If RecoverBytes Then MsgBox "恢复成功"
此种情况 RecoverBytes 应该是一个函数名  返回一个boolean
或者应写成 If 公共变量X=true Then MsgBox "恢复成功"
RecoverBytes 过程会改变: 公共变量X 的值

tclnxc

首先感谢大师的帮助。这种写法在32位office是可以使用的，刚才我按照大师的指点加了一个判断为true，还是一样，但是另外再设置一个公共变量我就不知道怎么设了，不知道大师可否测试一下代码成功后帖出来？谢谢了！

opiona

32位和64位的  恢复  我这里都一样

我只是从代码看  不知道如何测试

huarong7984

最笨的方法是：将高版本Excel 文档另存为低版本Excel 文档，再调用32位 VBA代码，完成后，再另存为高版本

tclnxc

huarong7984 发表于 2023-5-15 13:26
最笨的方法是：将高版本Excel 文档另存为低版本Excel 文档，再调用32位 VBA代码，完成后，再另存为高版本

除非重装office才行，版本高低应该是改变不了应用程序位数的