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?

Hola Parrix y Manuel

El dia de hoy he observado varios mensajes donde se trata
el tema de proteccion de hojas y la solucion dandole el
valor xlveryhidden a la propiedad visible de la hoja de
trabajo.

Recuerden que el simple codigo:
For intContador=1 to ActiveWorkbook.worksheets.Count
ActiveWorkbook.Worksheets(intcontador).Visible=True
Next intContador

Muestra todas las hojas de trabajo del libro activo por
muy ocultas que se encuentren

Saludos,

Henry
Mostrar la cita

Por medio de macros oculta la hoja usando el valor

xlVeryHidden en la
Mostrar la cita

propiedad Visible del objeto Worksheet. Para verla, seria

algo asi:
Mostrar la cita

Public Sub VerHoja()
If InputBox("contraseña")="password" Then Worksheets

("tu
Mostrar la cita

hoja").Visible=xlVisible
End Sub

La clave seria "password" y "tu hoja" es el nombre de la

etiqueta de la hoja
Mostrar la cita

que ocultas, obviamente protege el codigo del proyecto

para que la clave no
Mostrar la cita

se pueda ver o encriptala en un archivo, o como pueda

ocurrirte para
Mostrar la cita

proteger la clave.

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

grabar
Mostrar la cita

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

"parrix" escribió

en el mensaje
Mostrar la cita

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


.