之前有遇到想读取自己加密过的excel总是要输入密码，现在找到方法了，发出来希望对大家有帮助。

简单写了个代码：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\Reports\\test3.xls",,,,"打开密码","权限密码")
Output.Show(Wb.WorkSheets(1).range("A1").Value & Wb.WorkSheets(1).range("B1").Value)
App.Quit

注意：

1.要使用 MSExcel 一定要装完整版的Excel；

2.Open的“路径”参数后一定要先是“,,,,”再到“打开密码”和“权限密码”，如果没有设置“权限密码”的可以去掉如：

Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\Reports\\test3.xls",,,,"打开密码")

3.在读取完后要的值后一定要加“App.Quit”不然就无法打开test3.xls。