如何取消保护Excel工作簿

我有一个受密码保护的Excel工作簿（整个文档，而不仅仅是一张或一组工作表 – 不能在没有密码的情况下打开文件）。 我知道密码，所以我可以打开它，但没有明显的方法来closures密码保护。

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

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

但这绝对没有。

Answer 1

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

 Thisworkbook.Password = "" 

然后保存它。

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

Answer 2

这是MSDN所说的

 Sub Example() Dim WB as Workbook Dim pw as String Set WB = ThisWorkbook pw = "Your password" WB.Unprotect(pw) End Sub