Utilize este código vai proteger Texto e as Formulas.
Private Sub Worksheet_Change(ByVal Target As Range) 'Código bloqueia formula e texto
Dim rng As Range
ActiveSheet.Unprotect Password:="1111"
Cells.Locked = False
On Error Resume Next
Set rng = Cells.SpecialCells(XlCellTypeText)
Set rng = Cells.SpecialCells(xlCellTypeFormulas)
If Err.Number > 0 Then
Set rng = Cells.SpecialCells(xlCellTypeConstants)
Set rng = Union(rng, Cells.SpecialCells(XlCellTypeText))
Set rng = Union(rng, Cells.SpecialCells(xlCellTypeFormulas))
Else
End If
On Error GoTo 0
If Not rng Is Nothing Then rng.Locked = True
ActiveSheet.Protect Password:="1111"
ActiveWorkbook.Save
End
End Sub
Se vc usar código no filtro para pesquisa, assim fica liberado sem a necessidade de senha. Pesquise no fórum ou então abra outro tópico tem muita gente boa para ti ajudar.
Postado : 03/12/2015 12:10 pm