翻译成delphi语言(50)

ActiveWorkbook.Protect structure:=TrueActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, Scenarios:=TrueActiveSheet.EnableAutoFilter = TrueActiveSheet.Protect USERINTERFACEONLY:=True不知道有哪位大虾能解释以上几句ＶＢ脚本的意思,并把它翻译成delphi语言，本人将非常感谢

没人会吗? 我想在d下把生成的excel给锁定,不允许别人修改,怎么做?(当然在我的功能要求睛,改文件的只读属性是行不通的.)

ActiveWorkbook.Protect structure:=True;//保护工作簿结构ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, Scenarios:=True;//保护图形对象，表格内容，表格方案；ActiveSheet.EnableAutoFilter = True//设置活动工作表能自动筛选；ActiveSheet.Protect USERINTERFACEONLY:=True//设置活动工作表保护，保护用户界面放一ExcelApplication1到窗体中ExcelApplication1.ActiveWorkbook.Protectstructure:=True;ExcelApp.ActiveSheet.Protect(Password:='',DrawingObjects:=True,Contents:=True,Scenarios:=False,AllowFiltering:=True,AllowInsertingColumns:=False,AllowInsertingRows:=False,AllowInsertingHyperlinks:=False,AllowDeletingColumns:=False,AllowDeletingRows:=False,AllowSorting:=False,AllowFiltering:=False,AllowUsingPivotTables:=False);

好像还是行不通,有错误.

已经解决如下:ExcelA1.ActiveSheet.Protect(password:='123',DrawingObjects:=True,Contents:=True,Scenarios:=True);//多谢上楼提示.

多人接受答案了。