Aprire un file Excel salvato con la password per modificarlo

Vorrei aprire un file excel salvato con una password per modificare con VBScript. Il mio codice attuale del codice VBS è sotto, che funziona, ma continua a sfogliare con il boa chiedendo una password. Come posso aprire il foglio di calcolo Excel con excel chiedendomi una password?

Option Explicit On Error Resume Next ExcelMacroExample Sub ExcelMacroExample() Dim xlApp Dim xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\Users\jasons\Documents\TestFile.xlsm",,,,"yep123") xlApp.Visible = True xlApp.Run "Refresh_data_ss" xlApp.Save xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub 

Ora vedo, c'è una password per modificare il tuo file, ma non per l'apertura. Aprire la password è il quinto parametro di Workbooks.Open, e modificare è il sesto . Quindi devi avere invece le seguenti (una virgola):

  Set xlBook = xlApp.Workbooks.Open("C:\Users\jasons\Documents\TestFile.xlsm",,,,,"yep123") 

È ansible get la password da un InputBox

 myPass = InputBox("Write the password: ") Set xlBook = xlApp.Workbooks.Open("C:\Users\jasons\Documents\TestFile.xlsm",,,, myPass) myPass = InputBox ("Scrivi la password:") myPass = InputBox("Write the password: ") Set xlBook = xlApp.Workbooks.Open("C:\Users\jasons\Documents\TestFile.xlsm",,,, myPass)