मैं एक .vbs फ़ाइल बनाना चाहता हूं जो .xlsm फ़ाइल को व्यवस्थापक विशेषाधिकारों के साथ चलाती है [डुप्लिकेट]

Question

मैं एक .vbs फ़ाइल बनाना चाहता हूँ जो .xlsm फ़ाइल को व्यवस्थापक विशेषाधिकारों के साथ चलाती है।

जिस विधि के बारे में मैंने सोचा था

1. व्यवस्थापक के रूप में एक्सेल फ़ाइल चलाएँ
2. व्यवस्थापक विशेषाधिकारों के साथ खोले गए एक्सेल से .xlsm फ़ाइल खोलें

मैंने एक प्रशासक के रूप में .xlsx खोला, लेकिन ...

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

मैं .xlsx फ़ाइल को नियंत्रित नहीं कर सकता जिसे मैंने GetObject (,, Excel.application) द्वारा एक व्यवस्थापक के रूप में खोला था

मैं आदरपूर्वक आपकी सहायता माँगता हूँ।

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