Ver listado de celdas bloqueadas y ocultas

hola, Francesca !

... funciona bien, y para las bloqueadas como seria?

solo cambia la linea que dice:
de:
If Celda.FormulaHidden Then

a:
If Celda.Locked Then

o: (cualquiera, ya sea bloqueada o con formula oculta):
If Celda.Locked Or Celda.FormulaHidden Then

o: (ambas dos a la par que juntas :)
If Celda.Locked And Celda.FormulaHidden Then

saludos,
hector.

__ previos __

... no te entendi. Podrias poner un ejemplo? ...

(p.e.)

Sub Selecciona_Formula_Oculta()
With ActiveSheet
If Not .ProtectContents Then MsgBox "Hoja desprotegida !!!": Exit Sub
Dim Celda As Range, Ocultas As Range
For Each Celda In .UsedRange
If Celda.FormulaHidden Then
Set Ocultas = Union(IIf(Ocultas Is Nothing, Celda, Ocultas),
Celda)
End If
Next
End With
If Ocultas Is Nothing Then MsgBox "No hay celdas ocultas !!!": Exit Sub
MsgBox "Las celdas ocultas estan en el rango:" & vbCr & Ocultas.Address
Ocultas.Select
Set Ocultas = Nothing
End Sub