Bloquear / Desbloquear ediçao de células com formulas VBA Excel

[TamaraCO]

Ola gente,

eu estou fazendo uma planilha de uso coletivo, então gostaria de bloquear as células com formulas para não edição e permitir que apenas o administrador da planilha tenha acesso (essa parte já esta funcionando), utiliezei o seguinte codigo (que encontrei na internet) para bloquear as celulas:

Sub blockcells()
    Dim Data As Worksheet
        For Each Data In ActiveWorkbook.Worksheets
        With Data
            .Cells.Locked = False
            .Cells.FormulaHidden = False
            .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
            .Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True
            .EnableSelection = xlUnlockedCells
            .Protect
        End With
    Next Data
End Sub

Porém não consigo fazer o codigo reverso, no caso o que desbloqueia as celulas, alguém poderia me ajudar?

Muito obrigada

(P.s.: Desculpe pela falta de ascentos, estou utilizando um teclado AZERTY)