编程论坛
注册
登录
编程论坛
→
VFP论坛
请问怎么设置Excel文件的打开密码
yangdf
发布于 2022-11-16 20:56, 939 次点击
如题,请问怎么设置Excel文件的打开密码
7 回复
#2
yangdf
2022-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
yangdf
2022-11-16 23:14
回复 3楼 星光悠蓝
并没有起到效果,文件还是没有被加密
#5
yangdf
2022-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
yangdf
2022-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