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

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行和第1行设置字体类的斜体属性

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

Answer 1

您必须允许在保护工作表时格式化单元格,或使用UserInterfaceOnly:= True参数保护Workbook_Open上的工作表,以便您的代码甚至可以在受保护的工作表上工作(无论如何).