代ç å¦ä¸ï¼
Sub å¯ç ä¿æ¤()
ããActiveSheet.Unprotect ("888888") 'é»è®¤å¯ç ï¼èªè¡ä¿®æ¹
ããCells.Select
ããSelection.Locked = False
ããSelection.SpecialCells(xlCellTypeFormulas, 23).Select
ããSelection.Locked = True
ããSelection.FormulaHidden = True
ããActiveSheet.Protect ("123456")
ããActiveSheet.EnableSelection = xlUnlockedCells
ããEnd Sub
温馨提示:答案为网友推荐,仅供参考