宏
参考:https://docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-studio-2010/ee258586(v%3dvs.100)
Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\report.xls")
msgbox(wb.HasVBProject )
判断密码
https://docs.microsoft.com/zh-cn/office/vba/api/excel.workbook.haspassword