使用sortingfilter后，受密码保护的单元格不起作用

我最近有一个问题，我无法在我的工作表中sorting我的数据，由于我的工作表被保护，并且某些单元格被密码保护。

不过，我现在已经对这个问题进行了sorting，我突出显示了我需要sorting和密码保护的单元格 – 所以当我需要sorting时，它会要求input密码来取消保护此部分。

当我这样做，但是，它sorting后，我想改变一个单元格，最初被认为是密码保护 – 改变而不要求密码 – 这是奇怪的，因为工作表仍然受到保护。

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

所以我的问题是为什么不要求第一次input密码？ ＆我如何得到它第一次要求密码？

这里是我为了达到这个目的而修改的代码：

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 

有任何想法吗？

干杯! 🙂