Worksheet.Unprotect - Office Interop - 2003 年和 2007 年之间的差异

Question

我有一个 .NET winforms 应用程序，可以自动执行 Excel 并检查工作表密码。要求是能够检测到 1）保护已关闭 2）密码被删除（受保护但没有密码） 3) 密码与数据库中的正确密码匹配

为了满足第二个要求，程序使用空字符串调用 Worksheet.Unprotect 命令，捕获错误。如果出现预期错误，则进行第三次检查。如果没有错误，则取消保护无需密码即可工作==>密码已删除。

下面的代码示例具有这些检查。

该应用程序可以在 Office 2003 中很好地完成此操作。此后，我将我的开发计算机更新到 Office 2007，但它不再像以前那样工作。当我调用Worksheet.Unprotect时，Excel提示输入密码！

我需要知道如何在新版本的 Excel 中完成此操作，或者是否有办法引用旧的 PIA。不管怎样，如果我设置对 Excel 11 的引用，它会在 GAC 中替换为 12 的 PIA。

'return true if unprotect of worksheet does not generate an error
    'all other errors will bubble up
    'return false if specific error is "Password is invalid..."
    Try
        'detect unprotected or no password
        If oWorksheet.ProtectContents Then
            'try with no passsword and expect an error
            'if no error then raise exception
            Dim blnRaiseException As Boolean = True
            Try
                'oWorksheet.Unprotect(vbNullString)
                oWorksheet.Unprotect()
            Catch ex As Exception
                blnRaiseException = False
            End Try

            If blnRaiseException Then
                Throw New ExcelSheetNoPasswordException
            End If

            oWorksheet.Unprotect(strPwd)
            'no error so if we get here -- success
            fnCheckWorksheetPwd = True

            'leave as it was -- this may still cause workbook to think it is changed
            oWorksheet.Protect(strPwd)
        Else
            Throw New ExcelSheetNotProtectedException
        End If

    Catch COMex As System.Runtime.InteropServices.COMException
        'handle error code -2146827284 
        If COMex.ErrorCode = -2146827284 Then
            'this is the error we're looking for
        Else
            Throw
        End If
    Catch ex As Exception
        Throw
    End Try

Answer 1

使用 Worksheet.ProtectionMode 属性确定工作表是否受保护 (而不是 try..catch 尝试），并尝试 Unprotect("") 尝试取消使用空白密码的工作表保护。