Codigo para borra celdas no bloqueadas

hola, Antonio !

... como hacer que al pulsar eun boton se borre el contenido de las celdas no bloqueadas de varias hojas que estan protegidas.

prueba ajustando/adaptando/modificando/... un codigo +/- como el siguiente [macro asignada 'al boton']...
Sub Borrar_desbloqueadas()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Celda As Range
For Each Hoja In Worksheets(Array("hoja1", "hoja5", "hoja6", "hoja9"))
For Each Celda In Hoja.UsedRange
If Not Celda.Locked Then Celda.ClearContents
Next
Next
End Sub

hay 'alternativas' para seleccionar 'celdas especiales' [dentro del UsedRange]
ClearContents SOLO 'borra' el contenido de la/s celda/s [los formatos 'persisten']

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