警告消息不适用于用户表单

Question

我在sheet2中的内容被隐藏，并且仅在弹出用户表单并输入密码后才能取消隐藏。但是，即使显示警告消息，即使我选择“是终止”，我的工作表内容仍会取消隐藏。

预期结果：
用户在警告消息上选择“是终止”后，应该删除用户表单。有人可以帮我解决吗？

在工作表（sheet2）下：

Private Sub Worksheet_Activate()
    If Sheets("Reference").Columns("A:K").EntireColumn.Hidden = True Then
        Password.Show
        Call unhide
    Else
        Sheets("Reference").Columns("A:K").EntireColumn.Hidden = False
    End If
End Sub

根据用户表单（密码）：

Private Sub Submit_Click()
    If Me.Pword.Value = "123" Then
        Unload Me
        Call unhide
    Else
        Me.Hide
        Retry = MsgBox("The password is incorrect. Do you wish to try again?", _
            vbYesNo, "Retry?")
        Select Case Retry
            Case Is = vbYes
                Me.Pword.Value = ""
                Me.Pword.SetFocus
                Me.Show
            Case Is = vbNo
                Unload Me
        End Select
    End If
End Sub

Private Sub cmdExit_Click()
    If ExitAsk = vbYes Then Unload Password
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        If Not ExitAsk = vbYes Then Cancel = True
    End If
End Sub

Private Function ExitAsk() As VbMsgBoxResult
    Dim Smsg As String
    Smsg = "Do you really want to exit? Click Yes to Quit or No to Continue."
    ExitAsk = MsgBox(Smsg, vbYesNo + vbDefaultButton2 + vbQuestion, "Exit!")
End Function