如何通过Delphi代码对Excel工作表进行保护

Question

这里说的保护就是 Excel菜单的工具=>保护=〉保护工作表 功能，希望通过Delphi的代码进行实现。如果有相关的VBA资料也请分享。希望各位高手不吝赐教！

Answer 1

请参考：
关于TOleContainer载入WORD，EXECL等OFFICE文档后如何限制打印，粘贴等动作？
http://community.csdn.net/Expert/topic/3624/3624371.xml?temp=.9802362

Answer 2

http://www.somade.com/是个很专业的技术社区,去那里找找吧,或许有你要的答案~

Answer 3

ExcelApp.ActiveSheet.Protect(Password:= 'gfsoft123456',DrawingObjects:=False, Contents:=True, Scenarios:= False, AllowInsertingColumns:=True, AllowInsertingRows:=True,     AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True,    AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True,AllowUsingPivotTables:=True);

Answer 4

xxqg,ExcelApp是否就是TExcelApplication，但是protect不能这么使用的啊，会报参数太多
而且这个函数运行前是否需要打开excel吗？之后是否要save？

Answer 5

而且ExcelApp.ActiveSheet.protect没有这个函数，只有
ExcelApplication1.ActiveWorkbook.Protect