olecontainer如何去除excel的保护密码?(50分)

  • 主题发起人 主题发起人 小小武
  • 开始时间 开始时间

小小武

Unregistered / Unconfirmed
GUEST, unregistred user!
用的语句是createobjectfromfile('a.xls');

--好像olecontainer用的人很少了。不知为何
 
另外一个问题,再加50‘
用createobjectfromfile,如果已经打开一个excel了,那么这个已打开的excel文件关不掉,并且看到的是a.xls 的内容。如何解决
 
如果哪位有ole的文档,能给一份,就非常感谢。delphi将其封装再dll里,我根本不知道内部是怎么实现的。thx
 
看一下这个吧!
ActiveDocument.Protect Type:=wdAllowOnlyComments, Password:="free"

procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant; var Password: OleVariant); safecall;
 
是不是没人能解决?
 
是不是大家意思理解错了?
excel的保护密码我是知道的,就是打开的时候屏蔽密码输入框
 
excelworkbook1:variant;
excelapplication1:variant;

procedure TForm1.Button1Click(Sender: TObject);
begin

ExcelApp:=CreateOleObject('excel.application');

ExcelApp.WorkBooks.Open( 'f:/demo.xls');
excelapp.visible:=true;
excelwb:=excelapp.activeworkbook;
excelwb.protect('工作薄密码');

 
用olecontainer!!!!!!!!!
 
后退
顶部