打开一个保存有密码的Excel文件进​​行修改

我想打开一个用VBScript修改密码的excel文件。 我目前的代码VBS代码是在下面，这是工作，但它不断popup与要求input密码的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

现在我看到，你的文件有一个修改密码，但不能打开。 打开密码是Workbooks.Open的第五个参数，修改是第六个 。 所以你需要有以下代码（多一个逗号）：

  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)