取消保护不在excel 2013中工作

Question

我有一个宏来取消保护工作表并进行一些计算并在计算后保护工作表。

Sheets("test").unProtect Password:="aaaa"

'calculation

Sheets("test").Protect Password:="aaaa", AllowFormattingcells:=true

它在excel 2010中运行良好，但在excel 2013表中没有不受保护并且抛出错误。

我不知道我犯了什么错误？请帮我摆脱这个？

Answer 1

密码应如下所示，请尝试以下代码..

Sheets("test").unProtect "aaaa"

Sheets("test").Protect "aaaa"

FYR click here

Answer 2

您可以尝试以下代码：

Sub sheetUnprotect()
    ThisWorkbook.Sheets("test").Unprotect "aaaa"
End Sub