在excel文件尝试打开之前取消对其的保护

在excel文件尝试打开之前取消对其的保护,excel,vba,Excel,Vba,我用vba代码保护我的excel文件。现在我需要一个代码来取消保护我已经保护的文件。例如: 我的受保护文件的密码为:1234 当我试图打开文件时,一个弹出窗口要求输入密码(就像在文件级别保护excel时) 我想自动解除它的保护,但我不知道怎么做 请参阅下面的代码以保护文件 Private Sub CommandButton1_Click() Dim path As String Dim masterfile As Workbook Application.DisplayAlerts = Fa

我用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

有没有关于如何取消保护的建议?

工作簿。打开文件名:=路径,密码:=“您的密码”
查看更多Hello Vitaliy Prushak,谢谢您的回答。我已经这样做了。通过这样做,excel文件将打开。我想做的是用这个命令打开它,让文件不受保护。有什么想法吗?
ActiveWorkbook.Unprotect Password:=“您的密码”
另外,我强烈建议您在发布问题之前仔细查看。左侧有一个对象树,因此您可以找到任何对象,并读取该对象的属性和方法,以及它的工作方式。