Ver listado de celdas bloqueadas y ocultas

hola, Francesca !

Hay alguna forma de ver una lista de las celdas bloqueadas y/u ocultas de una hoja
sin tener que revisarlas una por una, porque me volvería loca?

solo por macros mediante un bucle que vaya distinguiendo (y agrupando) celda por celda :-((

segun la ayuda en linea {F1} de vba-exce...

Range.Locked (propiedad)
Devuelve o establece un valor de tipo Variant que indica si el objeto esta bloqueado.
Sintaxis
<expresion>.Locked
expresion: Variable que representa un objeto Range.

Comentarios
Esta propiedad devuelve:
True si el objeto esta bloqueado
False si el objeto se puede modificar cuando la hoja este protegida
o Null si el rango especificado contiene celdas bloqueadas y desbloqueadas

saludos,
hector.

Lo siento Héctor, no te entendí.
¿Podrías poner un ejemplo?
Fran

"Héctor Miguel" escribió en el mensaje de
noticias news:

hola, Francesca !

Hay alguna forma de ver una lista de las celdas bloqueadas y/u ocultas de
una hoja
sin tener que revisarlas una por una, porque me volvería loca?

solo por macros mediante un bucle que vaya distinguiendo (y agrupando)
celda por celda :-((

segun la ayuda en linea {F1} de vba-exce...

Range.Locked (propiedad)
Devuelve o establece un valor de tipo Variant que indica si el objeto esta
bloqueado.
Sintaxis
<expresion>.Locked
expresion: Variable que representa un objeto Range.

Comentarios
Esta propiedad devuelve:
True si el objeto esta bloqueado
False si el objeto se puede modificar cuando la hoja este protegida
o Null si el rango especificado contiene celdas bloqueadas y desbloqueadas

saludos,
hector.

hola, Francesca !

... 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

saludos,
hector.

Gracias Héctor, funciona bien, ¿y para las bloqueadas cómo sería?
Saludos
Francesca

"Héctor Miguel" escribió en el mensaje de
noticias news:O2p%23wU%

hola, Francesca !

... 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

saludos,
hector.

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