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

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

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

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

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

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

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

测试成功

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

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

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

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