Excel单元格设成只读

Sub A1单元格设成只读()

     Cells.Select
     Selection.Locked = False
     Selection.FormulaHidden = False
     Range("A1").Select
     ActiveCell.FormulaR1C1 = "5"
     Range("A1").Select
     Selection.Locked = True
     Selection.FormulaHidden = False
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub