求怎么在VBA中调用API函数ChangeWindowMessageFilterEx，我的系统是WIN7

Posted 2023-05-18

因为微软EXCEL VBA中调用 API SetWindowsHookEx
hHook = SetWindowsHookEx(WH_CBT, AddressOhHookf HookProc, ByVal hInst, ByVal 0&)
在win7系统下总返回0.所以要用ChangeWindowMessageFilterEx修改权限

Private Declare Function ChangeWindowMessageFilterEx Lib "user32.dll" (ByVal hWnd As Long, ByVal Message As Long, ByVal action As Long, ByRef pChangeFilterStruct As pChangeFilterStruct) As Long

Private Type pChangeFilterStruct
    cbSize As Long
    ExtStatus As Long
End Type

追问

能否给个实例我的邮箱[e-mail]

参考技术A 真相是没几歌人知道你问的是什么追问

你不要复制

VBA传两个参数报错

参考技术A 首先打开excle软件，进入VBA的编程界面，创建一个子程序test1，在VBA编程函数中怎样传递参数。然后在子程序中定义两个变量num1和num2，在VBA编程函数中怎样传递参数。，紧接着对这两个变量赋值。在VBA编程函数中怎样传递参数。调用sumup函数，并传入num1和num2这两个参数，并将返回的结果输出来。在VBA编程函数中怎样传递参数。把num1和num2这两个变量的值打印出来，看看这两个值被传入另外一个函数内部之后，值有没有改变。
在VBA编程函数中怎样传递参数。创建函数sumup,在sumup函数里面有两个参数，在参数前面用了ByVal，表示参数是按照值传递的方式进行，默认是按照地址进行传递的。