Proteger hoja de excel

Por medio de macros oculta la hoja usando el valor xlVeryHidden en la
propiedad Visible del objeto Worksheet. Para verla, seria algo asi:

Public Sub VerHoja()
If InputBox("contraseña")="password" Then Worksheets("tu
hoja").Visible=xlVisible
End Sub

La clave seria "password" y "tu hoja" es el nombre de la etiqueta de la hoja
que ocultas, obviamente protege el codigo del proyecto para que la clave no
se pueda ver o encriptala en un archivo, o como pueda ocurrirte para
proteger la clave.

Otra cosa, seria bueno que la vuelvas a ocultar antes de grabar

Private Sub Workbook_BeforeSave()
Worksheets("tu hoja").Visible=xlVeryHidden
End Sub

"parrix" escribió en el mensaje
news:360001c4294c$4e2be790$
¿hay alguna opción de proteger con una clave particular la
apertura de una determinada/s hoja/s?