以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何通过代码给EXCEL加密码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78741)
--  作者：unverse
--  发布时间：2015/12/16 10:06:00
--  如何通过代码给EXCEL加密码

如题，我将表保存成excel，但想通过代码给生成的EXCEL加上个密码，不知道用什么方式实现，VBA？

求方法 。。。

 

 

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\\data\\test.xls","订单",flg)

 

 

将这个文本加上密码，应该如何搞？
--  作者：大红袍
--  发布时间：2015/12/16 10:55:00
--  

要用vba，搜索protect

 

http://www.foxtable.com/help/topics/2121.htm

 
--  作者：unverse
--  发布时间：2015/12/16 12:24:00
--  
找到了，但现在还能打开，只不过不能编辑里面的内容，我想实现打开输入密码，不输入密码看不到里面的内容。。
--  作者：大红袍
--  发布时间：2015/12/16 12:30:00
--  
Dim App As New MSExcel.Application
try
    app.DisplayAlerts = False
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.open("d:\\test.xls")
    wb.SaveAs(Filename:= _
    "d:\\test.xls", _
    FileFormat:=MSExcel.XlFileFormat.xlAddIn8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False)
catch ex As exception
    msgbox(ex.message)
finally
    app.quit
End try