Excel 密码保护的单元格不是'；在使用排序过滤器后不工作

我最近遇到了一个问题，我无法在工作表中对数据进行排序，因为我的工作表受到保护，某些单元格也受到密码保护

然而，我现在已经解决了这个问题，我突出显示了我需要排序的单元格和密码保护它-因此，当我需要排序时，它会要求我提供密码以解除此部分的保护

然而，当我这样做的时候，在排序之后，我想更改一个最初被认为是受密码保护的单元格-它在不要求密码的情况下更改-这很奇怪，因为工作表仍然受到保护

虽然我第二次尝试它，它要求一个密码

所以我的问题是为什么它第一次不要求输入密码我如何让它第一次询问密码

以下是我为实现此目的而修改的代码：

Option Explicit

Const sPassword As String = "Green"

Function ProtectSheet(bBoolean As Boolean, sSheetName As String) As Boolean
' -------------------------------------------------------------------------------------------
' Description:  (Un)protects a given worksheet & Workbook
' Inputs:       bBoolean: True = protect, False = unprotect, worksheet name
' Output:       Boolean (True/False)
'--------------------------------------------------------------------------------------------

    If bBoolean Then
        Worksheets(sSheetName).EnableSelection = xlNoRestrictions
        Worksheets(sSheetName).Protect Password:=sPassword, AllowFiltering:=True, AllowSorting:=True
    Else
        Worksheets(sSheetName).Unprotect Password:=sPassword
    End If

ProtectSheet = True

End Function

有什么想法吗

干杯！：）