ShellExecuteEx で "runas" する。こんな感じになる。 Dim ei As SHELLEXECUTEINFO ei.cbSize = LenB(ei) ei.fMask = SEE_MASK_NOCLOSEPROCESS ' プロセスを終了させない ei.hwnd = GetActiveWindow() ' シートのハンドル ei.lpVerb = "runas" ei.lpFile = A…