Sentencia para proteger y desproteger mediante contraseña ???

Hola (y como siempre), gracias anticipadas, por vuestro interés y tiempo:

Harto de que me desprotejan las hojas de un libro, al no conocer otro metodo
de protegerlas y desprotegerlas por comando que el manido:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
Acudo a vosotros, con la esperanza de que alguno, me pueda indicar si existe
alguna manera de proteger y desproteger, hojas de un libro con una
CONTRASEÑA, por medio de sentencia o comando.
Tengo un libro, donde por medio de macros, se va viajando de una hoja a
otra. Para que los compañeros, no puedan tocar lo que no deben, me veo
obligado a comenzar y finalizar las macros, desprotegiendo y protegiendo la
hoja activa.
Pero a base de "bichear", ya han pillado el truco y se han dado cuenta de
que no existe contraseña y basta desproteger con un clic. Lo que me obliga a
restarurar el libro cada 2 por 3. Porque se empeñan en hacer cambios en
celdas y tablas de valores fijos.
Por todo ello el molestaros y rogaros vuestra apreciada ayuda, para ver si
existe alguna manera de utilizar algún comando que me permita proteger y
desproteger, la hoja activa con una contraseña.

En espera de vuestra necesitada ayuda, recibid un agradecido saludo.

JC