Nombre de Hoja

hola Nicola,

En una celda de la hoja se coloca la fecha de

inicio del período, y esa fecha define el período. Por ejemplo si la
fecha
es 16/02/2008, en la celda c6 está programado que aparezca "Febrero
2008", <<<

en realidad la celda que debes pasarle al ultimo codigo es la original
donde colocas la fecha, no C6. Cambia en esto => "$A$1" => la A y el 1
por lo que corresponda

la propia macro se encarga de formatear el nombre, aunque en este caso
cambiando un poco el formato para incluir el año


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
On Error Resume Next
If IsDate(Target) Then Me.Name = _
Format(CDate(Target), "mmmm yyyy")
If Err.Number <> 0 Then MsgBox _
"No se puede cambiar el nombre a la hoja " _
& Me.Name & vbCr & "Comprueba que el nombre" _
& " es valido o no esta duplicado"
On Error GoTo 0
End If
End Sub

PD: Probé tu última sugerencia pero todavía no logro que la macro funcione

con el libro protegido. Seguramente no estoy aplicando correctamente la
función Protect.<<<

la verdad es que como te dije no controlo mucho el tema de las
protecciones, aparte de que dependera de los tipos de proteccion que
tengas aplicados

de todas formas, aparte de usar UserInterfaceOnly, supongo podrias
desproteger con el metodo Unprotect antes de cambiar el nombre a la
hoja y volver a protegerlo despues con Protect, aunque tal y como esta
estructurada la macro y al tratarse de un evento convendria
modificarla un poco.

si puedo mañana lo miro

aun asi, quizas para para no liarte mas, te vuelvo a recomendar,
aparte de escribir en el editor de VBA por ejemplo esto=>

Thisworkbook.Protect

y situar el cursor dentro del termino Protect y darle a F1 para ver la
ayuda sobre dicho metodo

tambien buscar en el foro via google o abrir un nuevo hilo con la
consulta. Seguro te lo aclararan mejor


un saludo
Ivan