以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  怎样获取office文档是否有宏？是否设有密码？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=173884)

--  作者：fvcfox --  发布时间：2021/12/21 11:02:00 --  怎样获取office文档是否有宏？是否设有密码？ 如题

--  作者：有点蓝 --  发布时间：2021/12/21 11:13:00 --   宏 参考：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