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