如何取消保护Excel工作簿

Question

我有一个受密码保护的Excel工作簿（整个文档，而不仅仅是一张或一组工作表 - 如果没有密码，则无法打开该文件）。我知道密码，所以我可以打开它，但没有明显的方法可以关闭密码保护。

具体来说，我想在VBA中这样做，因为最终我希望能够使用循环对多个文件执行此操作。我尝试使用：

ThisWorkbook.Unprotect(Password = "[password]")

但这绝对没有。

Answer 1

如果是打开文件的密码，您需要：

Thisworkbook.Password = ""

然后保存。

Wb.Unprotect将删除保护工作簿结构/窗口的密码。

Answer 2

Here is what the MSDN says

Sub Example()
    Dim WB as Workbook
    Dim pw as String

    Set WB = ThisWorkbook
    pw = "Your password"
    WB.Unprotect(pw)
End Sub