Öffnen Sie eine Excel-Datei mit Passwort zum Ändern

Question

Ich möchte eine Excel-Datei öffnen, die mit einem Passwort zum Ändern mit VBScript gespeichert wird. Mein aktueller Code VBS-Code ist unten, was funktioniert, aber es taucht immer wieder auf, wenn boax nach einem Passwort fragt. Wie kann ich die Excel-Tabelle mit Excel öffnen, die mich nach einem Passwort fragt?

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 

Answer 1

Jetzt sehe ich, gibt es ein Passwort für Ihre Datei ändern, aber nicht für offen. Open password is the fifth parameter to Workbooks.Open, and modify is the sixth. SO müssen Sie stattdessen die folgenden (ein Komma mehr) haben:

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

Answer 2

Sie können das Passwort von einem InputBox bekommen

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