如何通过代码给EXCEL加密码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何通过代码给EXCEL加密码

共有2108人关注过本帖树形打印复制链接主题：如何通过代码给EXCEL加密码

unverse

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1088 积分：8247 威望：0 精华：4 注册：2012/3/31 18:08:00

如何通过代码给EXCEL加密码 发帖心情

Post By：2015/12/16 10:06:00 [只看该作者]

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

求方法。。。

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

将这个文本加上密码，应该如何搞？

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/16 10:55:00 [只看该作者]

要用vba，搜索protect

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

unverse

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1088 积分：8247 威望：0 精华：4 注册：2012/3/31 18:08:00

Post By：2015/12/16 12:24:00 [只看该作者]

找到了，但现在还能打开，只不过不能编辑里面的内容，我想实现打开输入密码，不输入密码看不到里面的内容。。

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：如何通过代码给EXCEL加密码