Protecion de lectura en hoja de calculo

16/09/2004 - 02:25 por test | Informe spam
Como puedo proteger contra lectura una hoja de calculo sola

Por ejemplo si abro un archivo nuevo, abajo me aparece 'hoja1', 'hoja2' y
'hoja3'.
Yo necesito que al apretar en hoja2, me pida una clave para poder
visualizarla.

Saludos
 

Leer las respuestas

#1 Héctor Miguel
15/09/2004 - 12:17 | Informe spam
hola [?] !

... proteger contra lectura una hoja ... sola
... si abro un archivo nuevo ... me aparece 'hoja1', 'hoja2' y 'hoja3'.
... que al apretar en hoja2, me pida una clave para poder visualizarla.



copia las siguientes lineas...
en el modulo de codigo del libro [¿ThisWorkbook?]... ==Dim HojaAnterior As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Hoja2" Then Exit Sub
[iv65536].Select
If InputBox("Clave de acceso...", "") <> "Yo mero" _
Then Sheets(HojaAnterior).Activate Else [a1].Select
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Hoja2" Then HojaAnterior = Sh.Name
End Sub

-> obviamente 'debieras' cambiar la clave [Yo mero] por una de tu preferencia ;)
si NO quieres que 'se vea' la clave... se necesitara un formulario de usuario personalizado :(
saludos,
hector.

Preguntas similares