excel - 在尝试打开之前取消保护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

任何建议如何取消保护？

标签： excelvba