Saya ingin membuat file .vbs yang menjalankan file .xlsm dengan hak administrator [duplikat]

Jan 09 2021

Saya ingin membuat file .vbs yang menjalankan file .xlsm dengan hak administrator.

Metode yang saya pikirkan adalah

  1. Jalankan file excel sebagai administrator
  2. Buka file .xlsm dari Excel yang dibuka dengan hak administrator

Saya membuka .xlsx sebagai administrator, tapi ...

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

Saya tidak dapat mengontrol file .xlsx yang saya buka sebagai administrator oleh GetObject (, Excel.application)

Saya dengan hormat meminta bantuan Anda.

Jawaban

Hackoo Jan 10 2021 at 15:38

Anda dapat mencoba dengan file vbs ini:

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
'-------------------------------------