用VB操作Excel加密,部分代码这样写的:
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.SheetsInNewWorkbook = 1
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Item(1)
xlApp.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
不知道为什么,根本都生成不了excel文件,如果把最后一句话去掉,生成文件正常,高手指点一下,到底应该怎么给exce加密呢?
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.SheetsInNewWorkbook = 1
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Item(1)
xlApp.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
不知道为什么,根本都生成不了excel文件,如果把最后一句话去掉,生成文件正常,高手指点一下,到底应该怎么给exce加密呢?
xlSheet.Application.ActiveWorkbook.PassWord = "123"
Password:="", WriteResPassword:="", ReadOnlyRecommended:=Fals, _
CreateBackup:=False
修改这样就可以,Password:=这里输密码