.Xlsm dosyasını yönetici ayrıcalıklarıyla çalıştıran bir .vbs dosyası oluşturmak istiyorum [çoğalt]

Question

.Xlsm dosyasını yönetici ayrıcalıklarıyla çalıştıran bir .vbs dosyası oluşturmak istiyorum.

Düşündüğüm yöntem

1. Excel dosyasını yönetici olarak çalıştırın
2. Yönetici ayrıcalıklarıyla açılan bir Excel'den .xlsm dosyasını açın

.Xlsx'i yönetici olarak açtım ama ...

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

GetObject (, Excel.application) ile yönetici olarak açtığım .xlsx dosyasını kontrol edemiyorum

Saygılarımla yardımınızı rica ediyorum.

Answer 1

Bu vbs dosyasıyla bir deneyebilirsiniz:

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