注册 登录
编程论坛 VFP论坛

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

yangdf 发布于 2022-11-16 20:56, 939 次点击
如题,请问怎么设置Excel文件的打开密码
7 回复
#2
yangdf2022-11-16 21:12
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open("G:\xuexi\xx.xls")
oExcel.Visible=.T.
oExcel.ActiveWorkbook.Protect('mima',.T.,.T.)
表格并没有进行加密
#3
星光悠蓝2022-11-16 22:11

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

再加个保存试试
oExcel.ActiveWorkbook.Save
#4
yangdf2022-11-16 23:14
回复 3楼 星光悠蓝
并没有起到效果,文件还是没有被加密
#5
yangdf2022-11-16 23:39
oxls=CREATEOBJECT("excel.application")
oxls.Workbooks.Open("G:\xuexi\xx.xlsx")
oxls.Workbooks(1).SaveAs("G:\xuexi\test11",51,"123", "",.F., .F.)
这个方法测试成功了
#6
星光悠蓝2022-11-17 08:47
程序代码:
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open("D:\成品.xls")
oExcel.Visible=.F.
oExcel.ActiveWorkbook.sheets(1).Protect('m12345')
oExcel.ActiveWorkbook.save
oExcel.quit


测试成功
#7
yangdf2022-11-17 10:07
回复 6楼 星光悠蓝
谢谢,这样是sheet被保护了,但我需要需要输入密码才可以打开excel表格。
#8
星光悠蓝2022-11-17 10:23
回复 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编辑过]

1