公共密码无法在受保护的工作表中识别

Question

我在Module1中有子“ProtectAllSheets”，在Sheet1对象上有另一个子，如果有#REF则用于删除整行！ Sheet1的C列出错。当工作表受到保护时它工作正常...但是当我关闭工作簿并再次打开它（它仍然受到保护）时，它不会删除带有错误的行，尽管它是“UserInterface = True”。如果我取消保护表单，它可以正常工作。似乎只要我关闭工作簿，一些信息就会“以某种方式”丢失......我只是无法理解代码到底有什么问题。

Option Explicit
Public pwd1 As String, pwd2 As String

Sub ProtectAllSheets()
Dim ws As Worksheet

  pwd1 = InputBox("Enter your password", "")
    If pwd1 = "" Then Exit Sub
  pwd2 = InputBox("Enter the password again", "")
    If pwd2 = "" Then Exit Sub
    'Checks if both the passwords are identical
    If InStr(1, pwd2, pwd1, 0) = 0 Or _
    InStr(1, pwd1, pwd2, 0) = 0 Then
    MsgBox "Please type the same password. ", vbInformation, ""
      Exit Sub
    End If
For Each ws In ActiveWorkbook.Sheets
    If ws.ProtectContents = False = True Then
      ws.Protect Password:=pwd1, UserInterFaceOnly:=True
    End If
        Next ws
MsgBox "Sheets are protected."
End Sub

Option Explicit

Sub Worksheet_Activate()
Dim sh As Worksheet
Dim c As Long
Set sh = ActiveSheet

    For c = 400 To 2 Step -1
        If IsError(Cells(c, 3)) Then
         Rows(c).EntireRow.Delete
        End If
    Next c

End Sub