\u30db\u30fc\u30e0\u30da\u30fc\u30b8\u5236\u4f5c\u306e\u30b5\u30ab\u30a8\u30f3\u300cExcel VBA \u30de\u30af\u30ed \u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u89e3\u9664\u3059\u308b\u65b9\u6cd5 32\u30d3\u30c3\u30c8 64\u30d3\u30c3\u30c8\u300d<\/a><\/p>\n\u3053\u3053\u304b\u3089\u306f64bit\u7248\u3060\u3051\u8ee2\u8f09
\n\uff08LongPtr\u3092Long\u306b\u3001PtrSafe\u3092\u524a\u9664\u3059\u308c\u307032bit\u7248\u306b\u306a\u308b\uff09
\n——————————-<\/p>\n
\r\nOption Explicit\r\n \r\nPrivate Const PAGE_EXECUTE_READWRITE = &H40\r\n \r\nPrivate Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)\r\nPrivate Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr\r\nPrivate Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr\r\nPrivate Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr\r\nPrivate Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer\r\n\r\nDim HookBytes(0 To 5) As Byte\r\nDim OriginBytes(0 To 5) As Byte\r\nDim pFunc As LongPtr\r\nDim Flag As Boolean\r\n \r\nPrivate Function GetPtr(ByVal Value As LongPtr) As LongPtr\r\n GetPtr = Value\r\nEnd Function\r\n \r\nPrivate Sub RecoverBytes()\r\n If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6\r\nEnd Sub\r\n \r\nPublic Function Hook() As Boolean\r\n Dim TmpBytes(0 To 5) As Byte\r\n Dim p As LongPtr\r\n Dim OriginProtect As LongPtr\r\n \r\n Hook = False\r\n pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")\r\n If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then\r\n MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6\r\n If TmpBytes(0) <> &H68 Then\r\n MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6\r\n p = GetPtr(AddressOf MyDialogBoxParam)\r\n HookBytes(0) = &H68\r\n MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4\r\n HookBytes(5) = &HC3\r\n MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6\r\n Flag = True\r\n Hook = True\r\n End If\r\n End If\r\nEnd Function\r\n \r\nPrivate Function MyDialogBoxParam(ByVal hInstance As LongPtr, ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer\r\n If pTemplateName = 4070 Then\r\n MyDialogBoxParam = 1\r\n Else\r\n RecoverBytes\r\n MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, hWndParent, lpDialogFunc, dwInitParam)\r\n Hook\r\n End If\r\nEnd Function\r\n \r\nPublic Sub VBAProject\u30d1\u30b9\u30ef\u30fc\u30c9\u89e3\u9664()\r\n If Hook Then\r\n MsgBox "VBAProject\u306e\u30d1\u30b9\u30ef\u30fc\u30c9\u89e3\u9664\u6210\u529f\uff01", vbInformation, "Congratulations"\r\n End If\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"\u3053\u3093\u306a\u3093\u3067\u89e3\u9664\u3067\u304d\u308b\u30d1\u30b9\u30ef\u30fc\u30c9\u3063\u3066\u3001\u306a\u3093\u306e\u305f\u3081\u306b\u3064\u3044\u3066\u3044\u308b\u306e\u3084\u3089\u30fb\u30fb\u30fb \u3068\u601d\u3063\u305f\u308a\u3059\u308b\u304c\u3001\u307e\u3041\u30d1\u30b9\u30ef\u30fc\u30c9\u5fd8\u308c\u305f\u3068\u304d\u306f\u975e\u5e38\u306b\u3042\u308a\u304c\u305f\u3044\u306e\u3060\u3002 \u53c2\u8003URL \u30db\u30fc\u30e0\u30da\u30fc\u30b8\u5236\u4f5c\u306e\u30b5\u30ab\u30a8\u30f3\u300cExcel VBA \u30de\u30af\u30ed \u30d1\u30b9\u30ef\u30fc\u30c9\u3092 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-3159","post","type-post","status-publish","format-standard","hentry","category-excelvba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/3159","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3159"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/3159\/revisions"}],"predecessor-version":[{"id":3160,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/3159\/revisions\/3160"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3159"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3159"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3159"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}