急求！保密措施

Question

我有一批数据用excel 表导出，但是我想导出以后加密，我该如何做？

Answer 1

给excel文件设置密码:引用excel库,然后控制excel,最后保存时设置密码:
Dim ExcelApp As Object '应用程序
Dim ExcelBook As Object '工作簿
Dim ExcelSheet As Object '工作表Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.add
Set ExcelSheet = ExcelBook.Worksheets(1)  '定义工作表对象
..........'给excelsheet写入数据
ExcelSheet.SaveAs Bcwjb, , Mm  '保存工作表和excel文件,Mm参数值为密码