尝试打开Excel文件之前先取消保护

Question

我已经用vba代码保护了我的excel文件。现在，我需要一个代码来取消保护我已经保护的文件。例如：

我的受保护文件的密码为：1234

当我尝试打开文件时，弹出窗口要求输入密码（例如在文件级别保护excel时）

我想自动解除保护，我不知道该怎么做。

请参阅下面的代码以保护文件。

Private Sub CommandButton1_Click()

Dim path As String
Dim masterfile As Workbook

Application.DisplayAlerts = False

Set masterfile = ThisWorkbook
'Set masterfile = Workbooks("I:\protect workbooks.xlsm")

For i = 3 To 4

    masterfile.Activate
    path = Worksheets("Files").Range("B" & i)
    Workbooks.Open Filename:=path
    ActiveWorkbook.SaveAs Filename:=path, Password:="AT2020", WriteRespassword:="AT2020"
    ActiveWorkbook.Save
    ActiveWorkbook.Close

Next i

MsgBox "The files are now protected"

End Sub

任何建议如何解除保护？