导出excel 为只读

[奔雷手]

如何 将导出的Excel 为只读

[奔雷手]

好吧 再加 20分

[奔雷手]

晕。此帖不是灌水贴，是求救贴。难道还要再加20？

[亮剑_]

1、文件属性改为只读
2、把excel文件加上修改密码，不允许修改

关键要看你的目的是什么，如果是不让别人修改文件？那么终极的办法就是没有文件（用户接触不到文件或后台接口）

[奔雷手]

就是想 在程序里 实现 导出的 Excel 的属性为只读。

[kye_jufei]

你要類似這樣寫：

excelapplication1.Workbooks.open('d:\bermanfilename.xls',null,true,null,null,null,null,null,null,null,null,null,null,0);

//设置EXCEL为只读，注意第二个参数，它就是设置EXCEL为只读的...

方法：你錄製一段宏，然後看裡裡的ＶＢＡ代碼就知道如何做了...

[亮剑_]

[Quote=引用 4 楼 lch0422 的回复:]

就是想 在程序里 实现 导出的 Excel 的属性为只读。
[/Quote]
FileSetAttr('***.xlsx', faReadOnly);

[temp2000]

myBook.SaveAs('d:\1.xls',xlNormal,'','aaa',true,false, xlNoChange, xlLocalSessionChanges, EmptyParam,
    EmptyParam, EmptyParam,0);

其中'aaa'为修改密码，TRUE为提示只读

[hawk198]

[Quote=引用 7 楼 temp2000 的回复:]

Delphi(Pascal) code
myBook.SaveAs('d:\1.xls',xlNormal,'','aaa',true,false, xlNoChange, xlLocalSessionChanges, EmptyParam,
EmptyParam, EmptyParam,0);……
[/Quote]
楼上的说的对