打开带密码excel ,如果密码错误，如何屏蔽excel自带提示（您所提供密码不正确，或键盘处于锁定状态）


var
   EX ,Ws:    Variant; 
   fn: String;
   i:  integer;
begin
   i:=1;
   dlgOpen1.Title :='请选择Excel文件';
   dlgOpen1.Filter := 'Excel表(*.xls)|*.xls';
   dlgOpen1.DefaultExt := 'xls';
   if dlgOpen1.Execute =True then
      begin
        Try
           Try
              fn := dlgOpen1.FileName;
              EX := CreateOleObject('Excel.Application');
              EX.Visible:=False;
              Ws:=Ex.WorkBooks.Open(fn,3,false,1,'123');------------这里密码错误，如果密码是’111‘，则如何屏蔽
              repeat
                  ShowMessage(Ws.ActiveSheet.Cells[i,1].Text  );
                  Inc(i);
              until Ws.ActiveSheet.Cells[i,1].Text ='' ;
            except
                EX.Quit;
                ShowMessage('系统获取Excel的数据错误');
            End;
        finally  
          Ex.Quit;  
        End;
      end
   Else
       exit;