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

Respostas

  • 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


    • Marcado como Resposta AndersonFDiniz domingo, 1 de setembro de 2013 22:01
    • Editado AndersonFDiniz segunda-feira, 2 de setembro de 2013 00:46
    domingo, 1 de setembro de 2013 22:01

Todas as Respostas