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
- Jalankan file excel sebagai administrator
- 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
'-------------------------------------
Kiat Pemilik Anjing yang Bermanfaat: Mengapa Penting untuk Membiarkan Anjing Anda Mengendus di Jalan
Taylor Sheridan Baru Menambahkan 1 Bintang 'Yellowstone' Favoritnya ke Pemeran 'Lawmen: Bass Reeves'