ABAP OLE -检查OLE对象是否受密码保护

Question

所以我想打开一个密码保护的excel文件，提示用户输入密码，但是我想在提示用户之前检查该文件是否需要密码。

我目前的方法是这样的，并且确实有效。

CREATE OBJECT app 'EXCEL.APPLICATION'.
CALL METHOD OF app 'WORKBOOKS' = workbook.
CALL METHOD OF workbook 'OPEN'
  EXPORTING
  #1 = arch               "filename
  #2 = 0                  "Update links
  #3 = 0                  "ReadOnly
  #4 = 1                  "Format
  #5 = gv_password.       "password
 IF sy-subrc NE 0.
  CALL METHOD OF app 'QUIT'.
  FREE OBJECT app. FREE OBJECT workbook.
  CLEAR: app, workbook.
  CREATE OBJECT app 'EXCEL.APPLICATION'.
  gv_password = <user_entered_password>
  CALL METHOD OF app 'WORKBOOKS' = workbook.
  CALL METHOD OF workbook 'OPEN'
    EXPORTING
    #1 = arch               "filename
    #2 = 0                  "Update links
    #3 = 0                  "ReadOnly
    #4 = 1                  "Format
    #5 = gv_password.       "password
ENDIF.

这基本上尝试使用空白密码打开excel文件，如果失败则提示用户。但这不是一个特别快速或优雅的解决方案。有没有更好的办法?也许在尝试打开之前直接检查属性?由于

Answer 1

根据以下信息，您无法在打开Excel文件之前判断其是否受密码保护:http://www.mrexcel.com/archive/General/2130.html

在那个讨论中，他们基本上是在建议你已经在做的事情。然而，最后一张海报确实建议将密码传递给非密码保护的文件没有效果，因此您可以始终先发制人地传递密码作为替代方案(取决于您的应用程序的逻辑)。