Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook =
App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet =
Wb.WorkSheets("同期对比")
Ws.Protect(Password:="hhh") '以
密码保护Wb.Save
App.Quit
利用EXCEL的VBA做密码保护.
我是想在利用模板生成Excel报表时,直接生成一个需要密码才能读的报表。能不能利用Excel报表的AfterBuild事件?
不需要,这个就是的.打印模板直接生成一个用密码保护的EXCEL报表.