通过 VBA 验证工作表上设置的密码是否正确

Question

我对工作表进行了密码保护，并且我想在打开时验证密码没有被用户更改过。

我已尝试通过 VBA 在已更改密码的工作表上再次设置密码，以查看它是否会出错但未提供错误。

以下代码是我目前用来测试它的代码，它可以工作，但我认为您不必取消保护工作表然后保护它来验证密码。

Sub CheckSheetPassword()
    Dim ws As Worksheet

    On Error Resume Next
    For Each ws In Worksheets
        ws.Unprotect Password:="Password"
        ws.Protect Password:="Password"
        If Err <> 0 Then
            MsgBox "Failed To Verify Password on: " & ws.Name
            Err = 0
        End If
    Next ws

End Sub

我的代码解释：

上述代码循环遍历工作簿中的所有工作表，并通过使用原始密码取消对当前工作表的保护来检查工作表保护密码是否已更改。

然后它使用原始密码保护工作表，以防止其不受保护。 （如果当前密码与原始密码不同，则不会引发错误，并且此步骤不会发生任何事情。）

如果代码无法取消对工作表的保护，则会引发错误，并且会出现一个消息框，让我知道该工作表上的密码已更改。

在评估下一个工作表以确定哪些工作表仍具有正确密码之前，我将错误计数重置为零。

我要问的是，这可以在不必取消保护工作表的情况下完成吗？

Answer 1

使用密码取消保护工作表后，您可以验证工作表是否受到保护。

完整代码如下：

Sub CheckSheetPassword()
    Dim ws As Worksheet

    On Error Resume Next
    For Each ws In Worksheets
        ws.Unprotect Password:="Password"
        If ws.ProtectContents = False Then
            ' The sheet is unprotected, so password hasn't changed
        Else
            ' The sheet is protected, so password has changed
            MsgBox "Failed To Verify Password on: " & ws.Name
        End If
    Next ws
End Sub

Answer 2

这个问题在 cmets 中得到了回答，说明我提出的方式是正确的。