锁定和隐藏公式

Sub 锁定和隐藏公式()

If ActiveSheet.ProtectContents = True Then

MsgBox "工作表已保护！"

Exit Sub

End If

Worksheets("Sheet1").Range("A1").CurrentRegion.Select

Selection.Locked = False

Selection.FormulaHidden = False

Selection.SpecialCells(xlCellTypeFormulas).Select

Selection.Locked = True

Selection.FormulaHidden = True

Worksheets("Sheet1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Worksheets("Sheet1").EnableSelection = xlNoRestrictions

End Sub