Proteger hoja

Hola.
Puedes usar el siguiente código al inicio y final del programa, desde luego al inicio para desprotegerlo:
=====
ActiveSheet.Unprotect Password:="xx"
=====

Y al final para protegerlo nuevamente:
=====
ActiveSheet.Protect Password:="xx"
=====

La contraseña a utilizar puedes colocarla directamente en el código y protegerlo para que nadie la descubra, incluso tomarla de un cuadro de texto para que pueda ser modificada de vez en cuando, etc.

Espero que te funcione.

Saludos, Tavopz

PD.: No olvides finalizar la pregunta.

Simplemente tendrías un cuadro de texto en un UserForm o en una hoja oculta del archivo, donde tendrías la contraseña (es más, me parece más fácil dentro de una celda de una hoja).

Y harías algo como:

xx = range("A1").value
ó
xx = textboxX.text

Saludos, Tavopz