执行清除受保护工作表中的过滤器的宏后，excel工作表在没有密码的情况下不受保护

Question

我编写了一个代码来清除受保护工作表中的过滤器。基本上，它取消保护工作表显示所有数据并保护工作表。但是在它执行之后，工作表在没有密码的情况下受到保护，并且它可以访问删除和插入我在保护工作表时限制的行。请检查以下代码。

'Keyboard Shortcut: Ctrl+p

On Error Resume Next

ActiveSheet.Unprotect Password:="generation@34"
ActiveSheet.ShowAllData

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
    AllowFormattingRows:=True, AllowInsertingRows:=True, _
    AllowInsertingHyperlinks:=True, AllowDeletingRows:=True,          AllowSorting:= _
    True, AllowFiltering:=True, AllowUsingPivotTables:=True


End Sub

Answer 1

您的问题是您调用了两次“保护”功能。

第二次调用在选项中没有密码，因此没有密码保护它。

除非您更改保护设置，否则无需再次调用所有设置，行

ActiveSheet.Protect Password:="generation@34"

用以前的设置密码保护您的工作表就足够了。

还有选项；

AllowDeletingRows:=True
AllowInsertingRows:=True

都设置为 true，这允许用户进行您声明要限制的更改。