ThisWorkbook.Protect 和 Unprotect 在关闭和打开事件中

Question

我想在打开工作簿时立即取消保护它，如果它在上次关闭时受到保护。我将以下代码放在 Open 事件的最开头：

If ThisWorkbook.ProtectStructure = True Then
    Call ThisWorkbook.Unprotect("openpassword")
End If

同样，我想在工作簿关闭之前对其进行保护。所以我将以下代码放在 beforeClose 事件的最后：

If ThisWorkbook.ProtectStructure = False Then
    Call ThisWorkbook.Protect("openpassword",True, False)
End If

ThisWorkbook.Save

这两个都不行！这意味着，如果工作簿在打开时已经受到保护，则不会执行 Open 事件中的任何代码。甚至没有 unprotect 调用！

类似地，在 beforeClose 事件中，所有代码之前保护部分被执行，除了保护部分和它后面的任何代码。我已经通过将它放置在 beforeClose 事件中的不同位置来确认这一点。

谁能帮我解决这个问题？

我为什么要这样做的其他解释：工作簿正在具有不同授权访问级别的用户之间共享。大多数用户在只允许在某些工作表上工作时面临受保护的工作簿。因此，根据谁最后使用它，工作簿可以在受保护状态或不受保护状态下关闭。如果在使用过程中没有受到保护，我需要在关闭时立即保护它，以便下一个未经授权的用户打开受保护的工作簿。

Answer 1

你能检查事件是否真的在触发？尝试在每个事件处理程序的开头放置一个 Stop 以查看它们是否被调用。如果代码没有执行，如果将其保存为可信文档会怎样？

只有几件事： 为什么不为所有人关闭时强制保护，而仅在为某些人打开时才允许取消保护？

您如何确定哪些用户可以取消保护工作簿？

您不会将工作簿保存为共享工作簿，对吧？这是一个普通的工作簿，但由不同的用户访问。共享工作簿带有保护有点有趣。

Answer 2

请尝试以下方法：

Dim sht As Worksheet
For Each sht in ActiveWorkbook.worksheets
    If sht.Protection = True Then
        sht.Unprotect("openpassword")
    End If
Next sht

最后还是一样：

Dim sht as Worksheet
For Each sht in ActiveWorkbook.Worksheets
    If sht.Protection = False Then
        sht.Protect ("openpassword", True, False)
    End If
Next sht

在 excel 中 - 据我所知 - 不可能直接保护整个工作簿，而是您必须保护每张工作表。

你至少可以尝试一下，如果它有效我也很高兴:)

库凯丝