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
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