Excel-VBA：对多个工作表的所有公式进行保护

在Excel的操作中，要实现一个工作表的内容保护比较简单，但如果工作簿中有大量的工作表，要一个个地进行设置就比较麻烦。这种情况下，可以借助VBA来实现，直接上代码：
Sub protect_formulas()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next

Dim sht As Worksheet
For Each sht In ThisWorkbook.Sheets
sht.Select
With Cells '解除所有单元格的锁定和隐藏
.Locked = False
.FormulaHidden = False
End With
With Cells.SpecialCells(xlCellTypeFormulas) '对所有使用公式的单元格进行锁定和隐藏
.Locked = True
.FormulaHidden = True
End With
sht.Protect