Excel - Quitar y poner Contraseña en hoja

Amigos buenos dias, estoy haciendo una macro para la generación de facturas, ya casi la tengo terminada, ya he logrado que los datos se copien a una hoja de históricos, sin embargo necesito que en esta hoja de históricos no se puedan modificar los datos ya guardados, por lo que la macro debe debe de desproteger la hoja y luego volverla a proteger cuando a copiado los datos, pero necesariamente un usuario puede modificar los datos por lo que podría ingresar a esta hoja y desportegerla, en resumen necesito lo siguiente:

una macro para proteger la hoja con la contraseña= Marvin2506
Una macro para desproteger la hoja con la contraseña= Marvin2506
pero que también me permita ingresar manualmente a desproteger la hoja y nuevamente volverla a proteger.

gracias...

Una forma sencilla para proteger es:

ActiveSheet.protect Password:="Marvin2506"

y para desproteger:

ActiveSheet.Unprotect Password:="Marvin2506"

espero te sirva.

Gracias amigo, es exactamente lo que andaba buscando, te lo agradezco mucho

pero como lo hago por donde

Amigo Carlos el siguiente código que me dio Sergio

ActiveSheet.protect Password:="Contraseña"

y para desproteger:

ActiveSheet.Unprotect Password:="contraseña"

me sirvió para agregarlo a un código que ya tenía yo de guardar históricos, me imagino que lo que quieres es hacer una macro entonces debes de generar un código, pero no se si tu puedes hacer eso.