打开用密码保存的Excel文件进​​行修改

Question

我想打开一个使用密码保存的excel文件，以便使用VBScript进行修改。我当前的代码VBS代码在下面，它可以工作，但它不断弹出boax要求输入密码。如何使用excel提示我输入密码来打开Excel电子表格？

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

现在我看到，有一个密码可以修改你的文件，但不能用于打开。 Open password is the fifth parameter to Workbooks.Open, and modify is the sixth。所以你需要更换以下内容（再多一个逗号）：

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

Answer 2

您可以从InputBox获取密码

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