관리자 권한 [중복]으로 .xlsm 파일을 실행하는 .vbs 파일을 만들고 싶습니다.

Question

관리자 권한으로 .xlsm 파일을 실행하는 .vbs 파일을 만들고 싶습니다.

내가 생각한 방법은

1. 관리자 권한으로 Excel 파일 실행
2. 관리자 권한으로 열린 Excel에서 .xlsm 파일 열기

.xlsx를 관리자로 열었지만 ...

Set objShell = CreateObject("Shell.Application") 
objShell.ShellExecute "C:\Program Files (x86)\Microsoft Office\Office16\EXCEL.EXE", "" , "", "runas", 0

GetObject (, Excel.application)에서 관리자 권한으로 연 .xlsx 파일을 제어 할 수 없습니다.

나는 당신의 도움을 정중하게 요청합니다.

Answer 1

이 vbs 파일로 시도해 볼 수 있습니다.

Option Explicit
Call Run_as_Admin() ' We execute our script with admin rights !
Dim Ws,EXCEL_FILE_PATH
Set Ws = CreateObject("Wscript.Shell")
EXCEL_FILE_PATH = "C:\Path\file.xlsm" ' Just change this line into your path file
Ws.run EXCEL_FILE_PATH,1,True
'----------------------------------------
Sub Run_as_Admin()
If Not WScript.Arguments.Named.Exists("elevate") Then
   CreateObject("Shell.Application").ShellExecute DblQuote(WScript.FullName) _
   , DblQuote(WScript.ScriptFullName) & " /elevate", "", "runas", 1
    WScript.Quit
End If
End Sub
'--------------------------------------
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'-------------------------------------