如何取消保护 Excel 工作簿

Question

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

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

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

但这绝对没有任何作用。

Answer 1

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

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

Answer 2

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

Thisworkbook.Password = ""

然后保存。

Wb.Unprotect 将删除保护工作簿 structure/windows.

的密码

How to unprotect an Excel workbook