氧化锆陶瓷后盖:我用vb控制excel表格，再运行时老是报Range类不能使用Locked属性，有段代码请各位看看。指点指点。

Sub FlowmisExcelVbastart()
'
' FlowmisExcelVbastart Macro
' user 记录的宏 2002-9-27
'
ActiveSheet.Unprotect
ActiveSheet.Range("C15,G16,I16,H19,H21,H23,H25,H27,C18,G18,I18,C20,G20,I20,C22,G22,I22,C24,G24,I24,C26,G26,I26,C29,G30,I30,D5,D6,D7,H7,F8,F9,F10,C12,G13,I13").Select
Selection.Locked = True
Selection.FormulaHidden = False
Selection.Font.ColorIndex = 0
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
If (ActiveSheet.Range("N10").Value = "综合部") Then

Application.ActiveSheet.Range("D5,D6,D7,H7,F8,F9,F10,C12,G13,I13,C15,G16,I16,H19,H21,H23,H25,H27").Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Font.ColorIndex = 0
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
End If

End Sub