无法设置字体类的斜体属性

Question

我在命令按钮下编写了此代码，工作表受到保护。命令按钮用作重置按钮，从许多单元格中删除数据并更改字体属性。这是代码： 我使用此按钮更改的范围已添加到例外

Range("C10:c18") = ""
Range("C20:c24") = ""
Range("c5:c6") = "_"
Range("c11:c12") = "Optional"
With Range("c11:c12")
    With .Font
         .Italic = True        '"Line 1"
         .ColorIndex = 48      '"Line 2" 
    End With
End With

抛出VBA错误：无法为第1行和

设置字体类的斜体属性

第2行的应用程序定义或对象定义错误

Answer 1

您必须在保护工作表时允许格式化单元格，或者使用UserInterfaceOnly：= True参数保护Workbook_Open上的工作表，以便您的代码甚至可以在受保护的工作表上工作（无论如何）。