borrar Celdas Desbloqueadas de Varias Hojas

hola, KM !

... libro con 5 hojas, como modifico este macro para que me borra celda Desbloqueadas Varias hoja del mismo libro.
Sub borrarDesbloqueadas()
ActiveSheet.Unprotect Password:="pp"
Dim c As Range
On Error Resume Next
For Each c In Range("A1:a20")
If c.Locked = False Then
c.ClearContents
End If
Next
ActiveSheet.Protect Password:="pp"
End Sub

no es necesario que des/re/protejas una hoja para borrar las celdas que no estan 'protegidas/bloqueadas/...' ;)
prueba con una macro +/- como la siguiente:
Sub Borra_Desbloqueadas()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Celda As Range
For Each Hoja In Worksheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5"))
For Each Celda In Hoja.Range("a1:a20")
If Not Celda.Locked Then Celda.ClearContents
Next
Next
End Sub

saludos,
hector.

gracias Hector por la ayuda pero me sale un error de Visual Basic(Subindice
fuera del intervalo)

KM**VE

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

hola, KM !

... libro con 5 hojas, como modifico este macro para que me borra celda
Desbloqueadas Varias hoja del mismo libro.
Sub borrarDesbloqueadas()
ActiveSheet.Unprotect Password:="pp"
Dim c As Range
On Error Resume Next
For Each c In Range("A1:a20")
If c.Locked = False Then
c.ClearContents
End If
Next
ActiveSheet.Protect Password:="pp"
End Sub

no es necesario que des/re/protejas una hoja para borrar las celdas que no
estan 'protegidas/bloqueadas/...' ;)
prueba con una macro +/- como la siguiente:
Sub Borra_Desbloqueadas()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Celda As Range
For Each Hoja In Worksheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4",
"Hoja5"))
For Each Celda In Hoja.Range("a1:a20")
If Not Celda.Locked Then Celda.ClearContents
Next
Next
End Sub

saludos,
hector.

hola, KM !

... me sale un error de Visual Basic (Subindice fuera del intervalo)

prueba con los nobres 'reales' de las hojas en la instruccion con el bucle que dice...

For Each Hoja In Worksheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5"))

[los del ejemplo son nombres supuestos y utilizados en las pruebas] :D

comentas ?
saludos,
hector.

hola hector, igual no fonciono elli te mando el ejemplo .
Gracias
KM**VE


Sub Borra_Desbloqueadas()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Celda As Range
For Each Hoja In Worksheets(Array("Cierre de Caja", "Control Multi
Bancos", "Relacion de Compra", "Confederado"))
For Each Celda In Hoja.Range("A1:DD140")
If Not Celda.Locked Then Celda.ClearContents
Next
Next
End Sub




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

hola, KM !

... me sale un error de Visual Basic (Subindice fuera del intervalo)

prueba con los nobres 'reales' de las hojas en la instruccion con el bucle
que dice...

For Each Hoja In Worksheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4",
"Hoja5"))

[los del ejemplo son nombres supuestos y utilizados en las pruebas] :D

comentas ?
saludos,
hector.

hola, KM !

el error 9 [subindice fuera del intervalo] significa que no se pudo tener acceso a alguno/s de los elementos 'indicados'
-> [generalmente] se debe a que NO 'existe' [al menos] con el nombre [o en la posicion] que se le ha indicado :(
-> comprueba que los carcteres [y/o espacios, acentos, etc.] de los nombres de las hojas sean 'identicos'
[tanto en los nombres de las hojas como en la matriz de la macro]
no importa tanto si son mayusculas y/o minusculas, pero SI... los caracteres exactos ;)

comentas ?
saludos,
hector.
=> ... igual no fonciono... te mando el ejemplo.

Sub Borra_Desbloqueadas()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Celda As Range
For Each Hoja In Worksheets(Array("Cierre de Caja", "Control Multi Bancos", "Relacion de Compra", "Confederado"))
For Each Celda In Hoja.Range("A1:DD140")
If Not Celda.Locked Then Celda.ClearContents
Next
Next
End Sub

prueba con los nobres 'reales' de las hojas en la instruccion con el bucle que dice...

For Each Hoja In Worksheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5"))