Bloquear fórmulas

hola, martinez !

... como puedo proteger sólo fórmulas para que no puedan borrarse ?
... tengo bloqueadas las celdas con formulas para despues proteger la hoja; hasta ahi, perfecto...
... habia creado vistas personalizadas y agrupaciones, o esquemas, no se bien si son lo mismo.
Si protejo la hoja no me permite utilizar las vistas y agrupaciones y [...]

1) cuando proteges hojas/libros [cuya finalidad es que el usuario NO modifique lo que 'no debe'] :))
las caracteristicas como vistas personalizadas, autfiltros, agrupaciones/esquemas, y algunas mas...
[obviamente] quedan 'fuera del alcance' del usuario y SOLO por macros se pueden habilitar/permitir/... ;)

2) es 'preferible' [re]proteger hojas/libros EN el evento de apertura del libro '_open' y 'controlarlas' por codigo
[ademas] 'estas' son de las caracteristicas que excel NO 'recuerda' cuando cierras y re/abres un libro...
o... 'se pierden' al andar des/re/protegiendo hojas/libros :-(

3) la 'habilitacion' de [o permiso para usar] autofiltros, esquemas desde el evento '_open' de unlibro...
SOLO permite SU USO... NO su 'creacion' [a menos que la creacion la realices por codigo] ;)
si quieres autorizar [p.e.] el uso de autofiltros, puedes 'generarlo' en el mismo evento :D

-> el siguiente ejemplo, asume que se trata -solo- de la 'hoja1' y que tiene DOS vistas personalizadas
puedes adaptar/completar/corregir/... o comentar detalles adicionales ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
Protge_hoja1
End Sub

en un modulo de codigo 'normal' ==Sub Alternar_vistas()
With Worksheets("Hoja1")
.Unprotect "123"
Select Case InputBox("Indica el numero de vista")
Case 1: .Parent.CustomViews("Completa").Show
Case Else: .Parent.CustomViews("Fuente").Show
End Select
End With
Protge_hoja1
End Sub
Sub Protge_hoja1()
With Worksheets("Hoja1")
.Protect Password:="123", UserInterfaceOnly:=True
If Not .AutoFilterMode Then .Range("a1").AutoFilter
.EnableAutoFilter = True
.EnableOutlining = True
End With
End Sub