Macro que oculta as fórmulas de todas as células que contém fórmulas dentro de uma pasta do Excel?

Question

Preciso de uma macro que oculta as fórmulas de todas as células que contém fórmulas dentro de uma pasta do Excel.

Answer 1

Sub proteger()

For Each plan In ActiveWorkbook.Sheets
If plan.Cells.HasFormula = True Then

With plan
.Unprotect
.Cells.Locked = False
.Cells.FormulaHidden = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True
.EnableSelection = xlUnlockedCells
.Protect
End With
    End If
Next

End Sub

Answer 2

Tópico duplicado:

http://social.msdn.microsoft.com/Forums/pt-BR/f5a19a38-99bc-4488-a8c7-9f2fb12e0427/macro-que-bloqueia-edio-de-todas-as-clulas-que-contm-frmulas-dentro-de-uma-pasta-do-excel

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br