Excel - Proteger mismo rango en todas las hojas

Hola a todos,

Tengo una hoja que se repite en muchas hojas del libro excel. Necesitaría proteger los mismos rangos de celdas en todas las hojas o lo que es lo mismo, permitir escribir datos en los mismos rangos de cada hoja. Por ejemplo.
En la hoja1 tengo dos tablas con unos encabezados y quiero que solo se puedan rellenar los datos de cada tabla sin tocar los encabezados ni formatos. Estas mismas tablas se repiten en todos las hojas del libro excel, ya que hay una hoja por día del año.
Sé hacerlo pero hoja a hoja y eso no es nada productivo...

Muchas gracias por vuestra ayuda.

saludos,

ya tengo la respuesta. Gracias igualmente!!



Sub proteg()

Dim wsEachSheet As Worksheet

For Each wsEachSheet In ActiveWorkbook.Worksheets
wsEachSheet.Protect Password:="MyPassword"
Next wsEachSheet

End Sub