仅当 AllowFiltering = True 时为 PW 取消保护工作表提示

Question

我有两个非常简单的子程序来保护和取消保护带有密码的工作表。在我添加“AllowFiltering:=True”参数之前，Subs 工作得很好。

添加该参数后，取消保护工作表时会提示我输入密码。但是，如果我按取消，则工作表不受保护（应该如此）。

因此，密码提示似乎完全多余，但有人可以帮我摆脱它吗？

这两个子是：

Sub LockSheet()

If ActiveSheet.Protect = False Then
ActiveSheet.Protect Password:="TopSecretPW", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End If

End Sub


Sub UnlockSheet()

If ActiveSheet.Unprotect = False Then
ActiveSheet.Unprotect Password:="TopSecretPW"
End If

End Sub

如果我使用此宏 - 没有 AllowFiltering:=True 参数 - 系统不会提示我输入密码。

Sub LockSheet()

If ActiveSheet.Protect = False Then
ActiveSheet.Protect Password:="TopSecretPW", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If

End Sub

奖励信息：过滤器和保护在参数集下工作得很好，如果没有输入正确的密码，我无法从菜单中取消保护工作表。我想埋葬的只是那个不请自来的私信提示。

Answer 1

问题在于您如何检查工作表是否受到保护。 ActiveSheet.Protect 是一种方法，而不是工作表对象的属性。而不是使用If ActiveSheet.Protect 使用If ActiveSheet.ProtectContents。 ProtectContents 是 WorkSheet 对象的一个​​属性，如果工作表受保护则返回 true，否则返回 false。您修改后的代码应如下所示：

Sub LockSheet()

If ActiveSheet.ProtectContents = False Then
    ActiveSheet.Protect Password:="TopSecretPW", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
End If

End Sub


Sub UnlockSheet()

If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect Password:="TopSecretPW"
End If

End Sub