取消保护并改变vba的风格

Sheet1.Unprotect Sheet1.Cells(13, "E").Locked = False Sheet1.Range("E13").Style.Name = "Normal" Sheet1.Protect 

生产:

您要更改的单元格或图表位于受保护的工作表上。 要进行更改,请单击“审阅”选项卡中的“取消保护表”(…)

另一方面:

 Sheet1.Unprotect Sheet1.Cells(13, "E").Locked = False Sheet1.Protect 

运行正常。

有同样的问题,“你试图改变的单元格或图表是在一个受保护的工作表上。 要进行更改,请单击“审阅”选项卡(…)中的“取消保护表单”,出现错误消息。

实现了我在工作簿中的另一个工作表上的保护,必须closures,才能修改正常样式。 有意义的,如果你想想!

一旦所有的保护被closures,我可以修改正常的风格。

Rogerc