求助代码，，，锁定工作表公式密码设置~~~~~~

半花

    Cells.Select
    Range("AB14").Activate
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Locked = True
    Selection.FormulaHidden = True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True
    Range("AB10").Select
    ActiveWorkbook.Save
End Sub
这个是录制得到的宏，求修改加上锁定密码“123456”拜谢！！！！！~~~来人啊，，，，救命啊~~~~~~大神们，老师们，，，求帮帮我啊~~~

半花

求大神们帮帮忙啊，，在线等，，，，急！！！！