请问怎么设置Excel文件的打开密码 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请问怎么设置Excel文件的打开密码

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 723 人关注过本帖

标题：请问怎么设置Excel文件的打开密码

只看楼主加入收藏

yangdf

等　级：新手上路
帖　子：20
专家分：0
注　册：2022-2-6
结帖率：100%

楼主

问题点数：0 回复次数：7

请问怎么设置Excel文件的打开密码

如题，请问怎么设置Excel文件的打开密码

搜索更多相关主题的帖子: 密码　打开　文件　 Excel　

2022-11-16 20:56

yangdf

等　级：新手上路
帖　子：20
专家分：0
注　册：2022-2-6

第 2 楼

得分:0

oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open("G:\xuexi\xx.xls")
oExcel.Visible=.T.
oExcel.ActiveWorkbook.Protect('mima',.T.,.T.)
表格并没有进行加密

2022-11-16 21:12

星光悠蓝

来　自：山水甲天下
等　级：贵宾
威　望：52
帖　子：523
专家分：1278
注　册：2010-1-11

第 3 楼

得分:0

oExcel.ActiveWorkbook.Protect('密码',.T.,.T.)
第一个.T.：保护工作簿结构
第二个.T.：保护工作簿窗口

再加个保存试试
oExcel.ActiveWorkbook.Save

2022-11-16 22:11

yangdf

等　级：新手上路
帖　子：20
专家分：0
注　册：2022-2-6

第 4 楼

得分:0

回复 3楼星光悠蓝

并没有起到效果，文件还是没有被加密

2022-11-16 23:14

yangdf

等　级：新手上路
帖　子：20
专家分：0
注　册：2022-2-6

第 5 楼

得分:0

oxls=CREATEOBJECT("excel.application")
oxls.Workbooks.Open("G:\xuexi\xx.xlsx")
oxls.Workbooks(1).SaveAs("G:\xuexi\test11",51,"123", "",.F., .F.)
这个方法测试成功了

2022-11-16 23:39

星光悠蓝

来　自：山水甲天下
等　级：贵宾
威　望：52
帖　子：523
专家分：1278
注　册：2010-1-11

第 6 楼

得分:0

程序代码：

oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open("D:\成品.xls")
oExcel.Visible=.F.
oExcel.ActiveWorkbook.sheets(1).Protect('m12345')
oExcel.ActiveWorkbook.save
oExcel.quit

测试成功

2022-11-17 08:47

yangdf

等　级：新手上路
帖　子：20
专家分：0
注　册：2022-2-6

第 7 楼

得分:0

回复 6楼星光悠蓝

谢谢，这样是sheet被保护了，但我需要需要输入密码才可以打开excel表格。

2022-11-17 10:07

星光悠蓝

来　自：山水甲天下
等　级：贵宾
威　望：52
帖　子：523
专家分：1278
注　册：2010-1-11

第 8 楼

得分:0

回复 7楼 yangdf

这样是对某张表操作，能设置密码，就能取消密码！

oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open("D:\成品.xls")
oExcel.ActiveWorkbook.sheets(1).UnProtect('m12345')
oExcel.Visible=.T.

[此贴子已经被作者于2022-11-17 10:24编辑过]

2022-11-17 10:23

快速回复：请问怎么设置Excel文件的打开密码