Excel - Macro para proteger Hoja

Estimados:
Tengo un boton de comandos el cual ejecuta la siguiente sentencia para proteger hoja:
------------------------------------------------------------------------------------------------
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
------------------------------------------------------------------------------------------------

y para desproteger hoja es la siguiente:
---------------------------------
ActiveSheet.Unprotect
---------------------------------

Lo que necesito es hacer que las formulas protejan y desprotejan con claves las Hojas, ya que las formulas anteriores solo la protegen pero no con clave.

Gracias

Muy buenas.

Para proteger:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, Password:="pp2"

Para desproteger:

ActiveSheet.Unprotect Password:="pp2"

Lógicamente, luego tendrás que proteger el código.

Un saludo. Juanjo.

Muchas gracias juanjo