Macro con hoja oculta

Espero solucionar esto. Dos preguntas: 1- Por un lado tengo una macro ya hecha (la mcro es ir de hoja 1 a hoja 2 con un botón). Lo que quiero es que quiero ocultar la hoja 2, pero cuando la oculto la macro no funciona. Esta es la macro:
Sub RepuestosFord()
'
' RepuestosFord Macro
'
'
Sheets("Ford").Select
End Sub
¿Qué hago? ¿Qué se modifica de esto?
2- Como hago para proteger una celda que tiene formato fecha, no quiero que puedan coolocar ni texto, ni modificar la fecha que se coloca en la celda.