ShellExecuteEx ã§ "runas" ããã ãããªæãã«ãªãã Dim ei As SHELLEXECUTEINFO ei.cbSize = LenB(ei) ei.fMask = SEE_MASK_NOCLOSEPROCESS ' ããã»ã¹ãçµäºãããªã ei.hwnd = GetActiveWindow() ' ã·ã¼ãã®ãã³ãã« ei.lpVerb = "runas" ei.lpFile = ActiveWorkbook.Path & "\ConsoleApplication1.exe" ei.lpParameters = "" ' ã³ãã³ãã©ã¤ã³å¼æ°(ããå ´å) ei.lpDirectory = "" ei.nShow = SW_HIDE ' ã³ã³ã½ã¼ã«ãé表示ã«ãã ShellExecuteEx ei ' å®è¡ãã¨ãã°ã¬ã¸ã¹ããªãèªã¿åããããªããã°ã©ã ãä½ã£ã¦ Pu

{{#tags}}- {{label}}
{{/tags}}