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)