bloqueio de células com Formulas (VBA)

Olá vou começar a postar algumas programações em VBA que me ajudam muito no dia a dia....


Bem pra começar vai ai uma SUB que serve para travar células que contenham formulas... o legal de utilizar este tipo de recurso que você não corre o risco de perder formulas desenvolvidas...


 Sub BloquearCelulas()
 Dim sh As Worksheet
 On Error Resume Next
For Each sh In ActiveWorkbook.Sheets
 With sh
                         .Unprotect .Cells.Locked = False
                         .Cells.SpecialCells(xlCellTypeFormulas, 23)
                         .Locked = True
                         .Protect AllowDeletingRows:=True
                          End With
                          Next sh
                          End Sub